perm filename EDIT.LAP[LSP,SYS]1 blob
sn#044158 filedate 1973-06-05 generic text, type T, neo UTF8
(DEFPROP EDITREAD T NOCALL)
(DEFPROP EDITCOM T NOCALL)
(DEFPROP EDITCOMA T NOCALL)
(DEFPROP EDITCOML T NOCALL)
(DEFPROP EDITMAC T NOCALL)
(DEFPROP EDITCOMS T NOCALL)
(DEFPROP EDITH T NOCALL)
(DEFPROP EDIT!UNDO T NOCALL)
(DEFPROP UNDOEDITCOM T NOCALL)
(DEFPROP EDITSMASH T NOCALL)
(DEFPROP EDITNCONC T NOCALL)
(DEFPROP EDIT1F T NOCALL)
(DEFPROP EDIT2F T NOCALL)
(DEFPROP EDITBF1 T NOCALL)
(DEFPROP EDITNTH T NOCALL)
(DEFPROP BPNT0 T NOCALL)
(DEFPROP BPNT T NOCALL)
(DEFPROP EDITDEFAULT T NOCALL)
(DEFPROP EDUP T NOCALL)
(DEFPROP EDIT* T NOCALL)
(DEFPROP EDOR T NOCALL)
(DEFPROP ERRCOM T NOCALL)
(DEFPROP EDRPT T NOCALL)
(DEFPROP EDLOC T NOCALL)
(DEFPROP EDLOCL T NOCALL)
(DEFPROP EDITELT T NOCALL)
(DEFPROP EDITCONT T NOCALL)
(DEFPROP EDITSW T NOCALL)
(DEFPROP EDITTO T NOCALL)
(DEFPROP EDITBELOW T NOCALL)
(DEFPROP EDITRAN T NOCALL)
(LAP ## FSUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL COMS) S)
(MOVE 1 (SPECIAL L) S)
(MOVEI 2 (QUOTE NIL))
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(0 2 (SPECIAL UNDOLST1) S)
(MOVE 1 (SPECIAL COMS) S)
(PUSHJ P EDITCOMS)
(PUSHJ P SPECSTR)
(JRST 0 SPECSTR)
NIL
(LAP EDITFNS FSUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL) S)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(CALL 1 (E PRINT) S)
(HRRZ@ 2 -1 P)
(CALL 2 (E CONS) S)
(MOVEI 2 (QUOTE EDITF) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE ERRORX) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(CALL 17 (E ERRSET) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EDITF FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE =) S)
(CALL 1 (E PRINT) S)
(MOVE 1 (SPECIAL LASTWORD) S)
(CALL 1 (E PRIN1) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -2 P)
TAG6 (HLRZ@ 1 -2 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG11)
(HLRZ@ 1 -2 P)
(MOVEI 2 (QUOTE TRACE) S)
(MOVEM 1 -1 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG13)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
TAG13 (MOVEI 2 (QUOTE (EXPR FEXPR MACRO)) S)
(MOVE 1 -1 P)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG15)
(HRRZ@ 1 1)
(HLRZ@ 3 -2 P)
(HRRZ@ 2 -2 P)
(PUSH P 1)
(HLRZ@ 1 1)
(CALL 3 (E EDITE) S)
(HRLM@ 1 0 P)
(HLRZ@ 1 -3 P)
(MOVEM 1 (SPECIAL LASTWORD) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG15 (MOVEI 2 (QUOTE VALUE) S)
(MOVE 1 -1 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG17)
(HRRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG1)
TAG17 (JRST 0 TAG10)
TAG11 (HLRZ@ 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG1)
TAG10 (HLRZ@ 1 -2 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ EDITABLE) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG1 (MOVEI 1 (QUOTE =EDITV) S)
(CALL 1 (E PRINT) S)
(MOVE 1 -2 P)
(CALL 17 (E EDITV) S)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDITV FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG5)
(MOVEI 1 (QUOTE =) S)
(CALL 1 (E PRINT) S)
(MOVE 1 (SPECIAL LASTWORD) S)
(CALL 1 (E PRIN1) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -1 P)
TAG5 (HLRZ@ 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG10)
(HLRZ@ 1 -1 P)
(CALL 1 (E *EVAL) S)
(MOVEI 3 (QUOTE NIL))
(HRRZ@ 2 -1 P)
(CALL 3 (E EDITE) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG10 (HLRZ@ 1 -1 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG12)
(MOVEI 2 (QUOTE VALUE) S)
(HLRZ@ 1 -1 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG12)
(HRRZ@ 1 1)
(PUSH P 1)
(CALL 0 (E UNBOUND) S)
(POP P 2)
(CAMN 1 2)
(JRST 0 TAG12)
(HLRZ@ 3 -1 P)
(HRRZ@ 2 -1 P)
(HRRZ@ 1 0 P)
(CALL 3 (E EDITE) S)
(HRRM@ 1 0 P)
(HLRZ@ 1 -1 P)
(MOVEM 1 (SPECIAL LASTWORD) S)
(JRST 0 TAG1)
TAG12 (HLRZ@ 1 -1 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ EDITABLE) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EDITP FSUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE =) S)
(CALL 1 (E PRINT) S)
(MOVE 1 (SPECIAL LASTWORD) S)
(CALL 1 (E PRIN1) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 0 P)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG5)
(MOVEI 1 (QUOTE =EDITV) S)
(CALL 1 (E PRINT) S)
(MOVE 1 0 P)
(CALL 17 (E EDITV) S)
(JRST 0 TAG4)
TAG5 (HLRZ@ 1 0 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG7)
(HLRZ@ 3 0 P)
(HRRZ@ 2 0 P)
(HRRZ@ 1 3)
(CALL 3 (E EDITE) S)
(HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL LASTWORD) S)
(JRST 0 TAG4)
TAG7 (HLRZ@ 1 0 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ EDITABLE) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG4 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP EDITE SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL COMS) S)
(0 3 (SPECIAL ATM) S)
(PUSH P 1)
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE NOT/ EDITABLE) S)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVE 3 (SPECIAL ATM) S)
(MOVE 2 (SPECIAL COMS) S)
(CALL 5 (E EDITL) S)
(CALL 1 (E LAST) S)
(HLRZ@ 1 1)
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITL SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(0 2 (SPECIAL COMS) S)
(0 3 (SPECIAL ATM) S)
(0 4 (SPECIAL MARKLST) S)
(0 5 (SPECIAL MESS) S)
(0 0 (SPECIAL COM) S)
(0 0 (SPECIAL LASTAIL) S)
(0 0 (SPECIAL UNDOLST) S)
(0 0 (SPECIAL UNDOLST1) S)
(0 0 (SPECIAL FINDFLAG) S)
(0 0 (SPECIAL LCFLG) S)
(0 0 (SPECIAL UNFIND) S)
(0 0 (SPECIAL LASTP1) S)
(0 0 (SPECIAL LASTP2) S)
(0 0 (SPECIAL READBUF) S)
(0 0 (SPECIAL L0) S)
(0 0 (SPECIAL COM0) S)
(0 0 (SPECIAL OLDPROMPT) S)
(MOVEI 1 (QUOTE ((EDITL0) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 (SPECIAL L) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG5)
(HLRZ@ 1 (SPECIAL L) S)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(MOVEI 1 (QUOTE NIL))
TAG1 (JRST 0 SPECSTR)
NIL
(LAP EDITL0 SUBR)
(MOVE 1 (SPECIAL COMS) S)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE START) S)
(JRST 0 TAG10)
(HRRZ@ 1 (SPECIAL COMS) S)
(MOVEM 1 (SPECIAL READBUF) S)
(JRST 0 TAG7)
TAG10 (MOVEI 1 (QUOTE ((EDIT1) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG11)
(MOVE 1 (SPECIAL L) S)
(JRST 0 TAG2)
TAG11 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG7
TAG6 (MOVE 1 (SPECIAL MESS) S)
(JUMPN 1 TAG15)
(MOVEI 1 (QUOTE EDIT) S)
TAG15 (CALL 1 (E PRINT) S)
(HLRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(MOVEI 2 (QUOTE LASTVALUE) S)
(MOVEI 1 (QUOTE EDIT) S)
(CALL 2 (E GET) S)
(MOVEM 1 (SPECIAL COM) S)
(JUMPN 1 TAG22)
(MOVEI 1 (QUOTE ((NIL))) S)
TAG22 (HLRZ@ 1 1)
(CALL 1 (E LAST) S)
(HLRZ@ 2 1)
(POP P 1)
(CAMN 2 1)
(JRST 0 TAG21)
(MOVE 1 (SPECIAL ATM) S)
(JUMPE 1 TAG17)
(HLRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(MOVEI 2 (QUOTE EDIT-SAVE) S)
(MOVE 1 (SPECIAL ATM) S)
(CALL 2 (E GET) S)
(MOVEM 1 (SPECIAL COM) S)
(JUMPN 1 TAG27)
(MOVEI 1 (QUOTE ((NIL))) S)
TAG27 (HLRZ@ 1 1)
(CALL 1 (E LAST) S)
(HLRZ@ 2 1)
(POP P 1)
(CAME 2 1)
(JRST 0 TAG17)
TAG21 (HLRZ@ 1 (SPECIAL COM) S)
(MOVEM 1 (SPECIAL L) S)
(HRRZ@ 1 (SPECIAL COM) S)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL MARKLST) S)
(HRRZ@ 1 (SPECIAL COM) S)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL UNDOLST) S)
(HLRZ@ 1 1)
(JUMPE 1 TAG33)
(MOVE 2 (SPECIAL UNDOLST) S)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL UNDOLST) S)
TAG33 (HRRZ@ 1 (SPECIAL COM) S)
(CALL 1 (E CDDR) S)
(MOVEM 1 (SPECIAL UNFIND) S)
TAG17
TAG1 (MOVEI 1 (QUOTE ((EDITL1) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(JRST 0 TAG1)
TAG2 (POPJ P)
NIL
(LAP EDIT1 SUBR)
(PUSH P (SPECIAL COMS) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL COM) S)
(MOVEI 2 (QUOTE NIL))
(PUSHJ P EDITCOM)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SUBFUN1EDVAL SUBR)
(MOVE 1 (SPECIAL SN) S)
(JCALL 1 (E *EVAL) S)
NIL
(LAP EDVAL SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL SN) S)
(MOVEI 1 (QUOTE ((SUBFUN1EDVAL))) S)
(CALL 17 (E ERRSET) S)
(JRST 0 SPECSTR)
NIL
(LAP SUBFUN1EDITL1 SUBR)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 (SPECIAL COM) S)
(JRST 0 EDITCOM)
NIL
(LAP EDITL1 SUBR)
TAG1 (CLEARM 0 (SPECIAL FINDFLAG) S)
(MOVE 1 (SPECIAL OLDPROMPT) S)
(JUMPN 1 TAG7)
(CALL 0 (E SPDLPT) S)
(CALL 1 (E ADD1) S)
(MOVEI 3 (QUOTE 0))
(MOVE 2 1)
(MOVEI 1 (QUOTE EDITL1) S)
(CALL 3 (E STKCOUNT) S)
(CALL 1 (E SUB1) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 43))
(CALL 1 (E PROMPT) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL OLDPROMPT) S)
TAG7
TAG2 (CLEARM 0 (SPECIAL UNDOLST1) S)
(PUSHJ P EDITREAD)
(MOVEM 1 (SPECIAL COM) S)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L0) S)
(MOVE 1 (SPECIAL COM) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 1 (SPECIAL COM) S)
(JRST 0 TAG11)
TAG12 (HLRZ@ 1 (SPECIAL COM) S)
TAG11 (MOVEM 1 (SPECIAL COM0) S)
(MOVEI 1 (QUOTE ((SUBFUN1EDITL1))) S)
(CALL 17 (E ERRSET) S)
(PUSH P 1)
(MOVE 1 (SPECIAL UNDOLST1) S)
(JUMPE 1 TAG20)
(MOVE 2 (SPECIAL L0) S)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL COM0) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL UNDOLST1) S)
(MOVE 2 (SPECIAL UNDOLST) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL UNDOLST) S)
TAG20 (POP P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(CLEARM 0 (SPECIAL READBUF) S)
(CALL 0 (E TERPRI) S)
(MOVE 1 (SPECIAL COM) S)
(JUMPE 1 TAG22)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / / ?) S)
(CALL 1 (E PRINC) S)
(CALL 0 (E TERPRI) S)
TAG22 (JRST 0 TAG1)
(POPJ P)
NIL
(LAP EDITREAD SUBR)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL READBUF) S)
(JUMPN 1 TAG6)
TAG1 (CALL 0 (E TERPRI) S)
(HLRZ@ 1 (SPECIAL OLDPROMPT) S)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG14)
(HLRZ@ 1 (SPECIAL OLDPROMPT) S)
(CALL 1 (E PRINC) S)
TAG14 (MOVEI 1 (QUOTE ((LINEREAD) ERRORX)) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 (SPECIAL READBUF) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG17)
(CALL 0 (E TERPRI) S)
(JRST 0 TAG1)
TAG17 (HLRZ@ 1 (SPECIAL READBUF) S)
(MOVEM 1 (SPECIAL READBUF) S)
TAG6 (HLRZ@ 1 (SPECIAL READBUF) S)
(HRRZ@ 2 (SPECIAL READBUF) S)
(MOVEM 2 (SPECIAL READBUF) S)
(MOVEM 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP EDITCOM SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL TOPFLG) S)
(MOVE 2 1)
(MOVEM 2 (SPECIAL COM) S)
(PUSH P 1)
(MOVE 1 (SPECIAL EDITRACEFN) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(PUSH P (SPECIAL EDITRACEFN) S)
(CALLF@ 1 0 P)
(SUB P (C 1 0 1 0))
TAG2 (MOVE 1 (SPECIAL FINDFLAG) S)
(JUMPE 1 TAG4)
(CAIE 1 (QUOTE BF) S)
(JRST 0 TAG6)
(CLEARM 0 (SPECIAL FINDFLAG) S)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 0 P)
(CALL 2 (E EDITBF) S)
(JRST 0 TAG5)
TAG6 (CLEARM 0 (SPECIAL FINDFLAG) S)
(MOVE 1 0 P)
(CALL 1 (E EDITQF) S)
TAG5 (JRST 0 TAG3)
TAG4 (MOVE 1 0 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG11)
(MOVE 2 (SPECIAL L) S)
(MOVE 1 0 P)
(PUSHJ P EDIT1F)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG3)
TAG11 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(MOVE 1 (SPECIAL TOPFLG) S)
(JUMPE 1 TAG13)
(TDZA 2 2)
TAG13 (MOVEI 2 (QUOTE T) S)
(MOVE 1 0 P)
(PUSHJ P EDITCOMA)
(JRST 0 TAG3)
TAG12 (MOVE 1 (SPECIAL TOPFLG) S)
(JUMPE 1 TAG16)
(TDZA 2 2)
TAG16 (MOVEI 2 (QUOTE T) S)
(MOVE 1 0 P)
(PUSHJ P EDITCOML)
TAG3 (HLRZ@ 1 (SPECIAL L) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITCOMA SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL COPYFLG) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CAIE 1 (QUOTE NIL))
(JRST 0 TAG7)
(JRST 0 TAG6)
TAG7 (CAIE 1 (QUOTE OK) S)
(JRST 0 TAG10)
(MOVE 1 (SPECIAL ATM) S)
(JUMPE 1 TAG12)
(MOVEI 2 (QUOTE EDIT-SAVE) S)
(CALL 2 (E REMPROP) S)
TAG12 (MOVE 1 (SPECIAL L) S)
(CALL 1 (E LAST) S)
(MOVE 2 (SPECIAL L) S)
(PUSH P 1)
(MOVE 1 (SPECIAL UNDOLST) S)
(CALL 2 (E CONS) S)
(MOVE 2 (SPECIAL MARKLST) S)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 3 (QUOTE LASTVALUE) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE EDIT) S)
(CALL 3 (E PUTPROP) S)
(HRRZ@ 1 (SPECIAL OLDPROMPT) S)
(CALL 1 (E PROMPT) S)
(MOVE 2 (SPECIAL L) S)
(MOVEI 1 (QUOTE EDITL0) S)
(CALL 2 (E RETFROM) S)
(JRST 0 TAG6)
TAG10 (CAIE 1 (QUOTE STOP) S)
(JRST 0 TAG13)
(HRRZ@ 1 (SPECIAL OLDPROMPT) S)
(CALL 1 (E PROMPT) S)
(CALL 0 (E SPDLPT) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(MOVEI 1 (QUOTE EDITL0) S)
(CALL 3 (E STKSRCH) S)
(MOVEI 2 (QUOTE (ERR)) S)
(CALL 2 (E SPREVAL) S)
(JRST 0 TAG6)
TAG13 (CAIE 1 (QUOTE SAVE) S)
(JRST 0 TAG14)
(MOVE 1 (SPECIAL ATM) S)
(JUMPE 1 TAG16)
(MOVE 2 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL UNDOLST) S)
(CALL 2 (E CONS) S)
(MOVE 2 (SPECIAL MARKLST) S)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL L) S)
(CALL 2 (E XCONS) S)
(MOVEI 3 (QUOTE EDIT-SAVE) S)
(MOVE 2 1)
(MOVE 1 (SPECIAL ATM) S)
(CALL 3 (E PUTPROP) S)
(MOVEI 3 (QUOTE LASTVALUE) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE EDIT) S)
(CALL 3 (E PUTPROP) S)
TAG16 (HRRZ@ 1 (SPECIAL OLDPROMPT) S)
(CALL 1 (E PROMPT) S)
(MOVE 2 (SPECIAL L) S)
(MOVEI 1 (QUOTE EDITL0) S)
(CALL 2 (E RETFROM) S)
(JRST 0 TAG6)
TAG14 (CAIE 1 (QUOTE TTY:) S)
(JRST 0 TAG17)
(MOVE 1 (SPECIAL COM0) S)
(MOVEM 1 (SPECIAL COM) S)
(MOVEI 5 (QUOTE TTY:) S)
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(MOVE 1 (SPECIAL L) S)
(CALL 5 (E EDITL) S)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG6)
TAG17 (CAIE 1 (QUOTE E) S)
(JRST 0 TAG20)
(MOVE 1 (SPECIAL TOPFLG) S)
(JUMPE 1 TAG22)
(PUSHJ P EDITREAD)
(CALL 1 (E EDVAL) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG24)
(MOVE 2 (SPECIAL %LOOKDPTH) S)
(HLRZ@ 1 0 P)
(CALL 2 (E PRINTLEV) S)
TAG24 (JRST 0 TAG21)
TAG22 (MOVE 1 -1 P)
(CALL 1 (E EDITQF) S)
TAG21 (JRST 0 TAG6)
TAG20 (CAIE 1 (QUOTE P) S)
(JRST 0 TAG30)
(MOVEI 2 (QUOTE 2))
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P BPNT0)
(JRST 0 TAG6)
TAG30 (CAIE 1 (QUOTE ?) S)
(JRST 0 TAG31)
(MOVEI 2 (QUOTE 100))
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P BPNT0)
(JRST 0 TAG6)
TAG31 (CAIE 1 (QUOTE PP) S)
(JRST 0 TAG32)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P BPNT0)
(JRST 0 TAG6)
TAG32 (CAIE 1 (QUOTE ↑) S)
(JRST 0 TAG33)
(HRRZ@ 1 (SPECIAL L) S)
(JUMPE 1 TAG35)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(JUMPN 1 TAG34)
TAG35
TAG34 (MOVE 1 (SPECIAL L) S)
(CALL 1 (E LAST) S)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG6)
TAG33 (CAIE 1 (QUOTE !0) S)
(JRST 0 TAG36)
(HRRZ@ 1 (SPECIAL L) S)
(JUMPN 1 TAG40)
(CALL 1 (E ERR) S)
TAG40
TAG1 (HRRZ@ 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L) S)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 1 1)
(CALL 2 (E TAILP) S)
(JUMPN 1 TAG1)
(JRST 0 TAG6)
TAG36 (CAIE 1 (QUOTE MARK) S)
(JRST 0 TAG46)
(MOVE 2 (SPECIAL MARKLST) S)
(MOVE 1 (SPECIAL L) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL MARKLST) S)
(JRST 0 TAG6)
TAG46 (CAIE 1 (QUOTE UNDO) S)
(JRST 0 TAG47)
(PUSH P (SPECIAL TOPFLG) S)
(MOVE 1 (SPECIAL READBUF) S)
(JUMPE 1 TAG51)
(PUSHJ P EDITREAD)
(MOVE 3 1)
(JRST 0 TAG50)
TAG51 (MOVEI 3 (QUOTE NIL))
TAG50 (MOVEI 2 (QUOTE NIL))
(POP P 1)
(PUSHJ P EDIT!UNDO)
(JRST 0 TAG6)
TAG47 (CAIE 1 (QUOTE TEST) S)
(JRST 0 TAG52)
(MOVE 2 (SPECIAL UNDOLST) S)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL UNDOLST) S)
(JRST 0 TAG6)
TAG52 (CAIE 1 (QUOTE !UNDO) S)
(JRST 0 TAG53)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE T) S)
(PUSHJ P EDIT!UNDO)
(JRST 0 TAG6)
TAG53 (CAIE 1 (QUOTE UNBLOCK) S)
(JRST 0 TAG54)
(MOVE 2 (SPECIAL UNDOLST) S)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E MEMQ#) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG56)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(HRRZ@ 3 0 P)
(MOVE 2 1)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(JRST 0 TAG55)
TAG56 (CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE NOT/ BLOCKED) S)
(CALL 1 (E PRINC) S)
TAG55 (JRST 0 TAG6)
TAG54 (CAIE 1 (QUOTE ←) S)
(JRST 0 TAG61)
(MOVE 1 (SPECIAL MARKLST) S)
(JUMPE 1 TAG63)
(HRRZ@ 1 (SPECIAL L) S)
(JUMPE 1 TAG65)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(JUMPN 1 TAG64)
TAG65
TAG64 (HLRZ@ 1 (SPECIAL MARKLST) S)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG62)
TAG63 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG62 (JRST 0 TAG6)
TAG61 (CAIE 1 (QUOTE \) S)
(JRST 0 TAG70)
(MOVE 1 (SPECIAL UNFIND) S)
(JUMPE 1 TAG72)
(MOVE 1 (SPECIAL L) S)
(MOVE 2 (SPECIAL UNFIND) S)
(MOVEM 2 (SPECIAL L) S)
(MOVEM 1 -1 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG74)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(JUMPN 1 TAG73)
TAG74
TAG73 (JRST 0 TAG71)
TAG72 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG71 (JRST 0 TAG6)
TAG70 (CAIE 1 (QUOTE \P) S)
(JRST 0 TAG77)
(MOVE 1 (SPECIAL LASTP1) S)
(JUMPE 1 TAG101)
(CAMN 1 (SPECIAL L) S)
(JRST 0 TAG101)
(MOVE 1 (SPECIAL LASTP1) S)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG100)
TAG101
(MOVE 1 (SPECIAL LASTP2) S)
(JUMPE 1 TAG105)
(CAMN 1 (SPECIAL L) S)
(JRST 0 TAG105)
(MOVE 1 (SPECIAL LASTP2) S)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG100)
TAG105
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG100
(JRST 0 TAG6)
TAG77 (CAIE 1 (QUOTE ←←) S)
(JRST 0 TAG113)
(MOVE 1 (SPECIAL MARKLST) S)
(JUMPE 1 TAG115)
(HRRZ@ 1 (SPECIAL L) S)
(JUMPE 1 TAG117)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(JUMPE 1 TAG117)
(HLRZ@ 1 (SPECIAL MARKLST) S)
(MOVEM 1 (SPECIAL L) S)
(JUMPE 1 TAG117)
(HRRZ@ 1 (SPECIAL MARKLST) S)
(MOVEM 1 (SPECIAL MARKLST) S)
(JUMPN 1 TAG116)
TAG117
TAG116
(JRST 0 TAG114)
TAG115
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG114
(JRST 0 TAG6)
TAG113
(MOVEI 2 (QUOTE (F BF)) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG122)
(MOVE 1 (SPECIAL TOPFLG) S)
(JUMPN 1 TAG124)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL FINDFLAG) S)
(JRST 0 TAG4)
TAG124
(PUSHJ P EDITREAD)
(MOVEM 1 0 P)
(MOVE 1 -1 P)
(CAIE 1 (QUOTE F) S)
(JRST 0 TAG131)
(MOVE 1 0 P)
(CALL 1 (E EDITQF) S)
(JRST 0 TAG130)
TAG131
(CAIE 1 (QUOTE BF) S)
(JRST 0 TAG132)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 0 P)
(CALL 2 (E EDITBF) S)
(JRST 0 TAG130)
TAG132
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG130
(JRST 0 TAG6)
TAG122
(MOVE 1 -1 P)
(CAIE 1 (QUOTE UP) S)
(JRST 0 TAG135)
(PUSHJ P EDUP)
(JRST 0 TAG6)
TAG135
(CAIE 1 (QUOTE DELETE) S)
(JRST 0 TAG136)
(MOVEI 1 (QUOTE (DELETE)) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE NIL))
(MOVEM 1 -1 P)
(MOVEI 1 (QUOTE :) S)
(CALL 3 (E EDIT:) S)
(JRST 0 TAG6)
TAG136
(CAIE 1 (QUOTE NX) S)
(JRST 0 TAG137)
(MOVEI 1 (QUOTE 1))
(PUSHJ P EDIT*)
(JRST 0 TAG6)
TAG137
(CAIE 1 (QUOTE BK) S)
(JRST 0 TAG140)
(MOVEI 1 (QUOTE -1))
(PUSHJ P EDIT*)
(JRST 0 TAG6)
TAG140
(CAIE 1 (QUOTE !NX) S)
(JRST 0 TAG141)
(MOVE 1 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(PUSH P 1)
TAG2 (HRRZ@ 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L) S)
(JUMPE 1 TAG150)
(HRRZ@ 1 1)
(JUMPN 1 TAG146)
TAG150
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG145)
TAG146
(HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG2)
(HRRZ@ 1 1)
(JUMPE 1 TAG2)
TAG145
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE NX) S)
(PUSHJ P EDITCOM)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL L) S)
(PUSHJ P SPECSTR)
(MOVEM 1 (SPECIAL L) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG6)
TAG141
(CAIE 1 (QUOTE ??) S)
(JRST 0 TAG157)
(MOVE 1 (SPECIAL UNDOLST) S)
(PUSHJ P EDITH)
(JRST 0 TAG6)
TAG157
(MOVEI 3 (QUOTE NIL))
(MOVE 2 (SPECIAL EDITMACROS) S)
(MOVE 1 -1 P)
(PUSHJ P EDITMAC)
(MOVEM 1 0 P)
(JUMPN 1 TAG163)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 (SPECIAL USERMACROS) S)
(MOVE 1 -1 P)
(PUSHJ P EDITMAC)
(MOVEM 1 0 P)
(JUMPN 1 TAG163)
(MOVE 1 -1 P)
(PUSHJ P EDITDEFAULT)
(JRST 0 TAG3)
TAG163
(HRRZ@ 1 0 P)
(CALL 1 (E COPY) S)
(PUSHJ P EDITCOMS)
TAG6
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITCOML SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL COPYFLG) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HRRZ@ 1 -3 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG12)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG15)
(HRRZ@ 1 -3 P)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
TAG15
TAG12 (MOVE 1 (SPECIAL LCFLG) S)
(JUMPE 1 TAG20)
(MOVEI 2 (QUOTE (TO THRU THROUGH)) S)
(MOVE 1 0 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG24)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(JUMPN 1 TAG26)
(MOVEI 1 (QUOTE -1))
(MOVEI 2 (QUOTE THRU) S)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
TAG26 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG23)
TAG24 (MOVEI 1 (QUOTE NIL))
TAG23 (JUMPE 1 TAG20)
(MOVE 3 0 P)
(MOVE 2 -1 P)
(HLRZ@ 1 -3 P)
(PUSHJ P EDITTO)
(JRST 0 TAG7)
TAG20 (HLRZ@ 1 -3 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG32)
(HRRZ@ 2 -3 P)
(HLRZ@ 1 -3 P)
(PUSHJ P EDIT2F)
(JRST 0 TAG7)
TAG32 (MOVE 1 0 P)
(CAIE 1 (QUOTE ::) S)
(JRST 0 TAG33)
(HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(HLRZ@ 1 -3 P)
(PUSHJ P EDITCONT)
(JRST 0 TAG7)
TAG33 (HLRZ@ 1 -3 P)
(MOVEM 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE S) S)
(JRST 0 TAG35)
(PUSH P 0 P)
(MOVE 1 -1 P)
(JUMPN 1 TAG37)
(CALL 1 (E ERR) S)
(MOVE 2 1)
(JRST 0 TAG36)
TAG37 (MOVE 1 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(PUSHJ P EDLOC)
(PUSHJ P SPECSTR)
(MOVE 2 1)
TAG36 (POP P 1)
(CALL 2 (E SET) S)
(JRST 0 TAG34)
TAG35 (CAIE 1 (QUOTE R) S)
(JRST 0 TAG43)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E NCONS) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(MOVEI 2 (QUOTE T) S)
(MOVE 1 0 P)
(CALL 2 (E EDIT4F) S)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG45)
(MOVE 1 (SPECIAL UPFINDFLG) S)
(JUMPE 1 TAG45)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG45)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 TAG44)
TAG45 (HLRZ@ 1 (SPECIAL L) S)
TAG44 (PUSHJ P SPECSTR)
(HLRZ@ 3 (SPECIAL L) S)
(MOVE 2 1)
(MOVEM 1 0 P)
(MOVE 1 -1 P)
(CALL 3 (E EDITDSUBST) S)
(JRST 0 TAG34)
TAG43 (CAIE 1 (QUOTE E) S)
(JRST 0 TAG53)
(MOVE 1 0 P)
(CALL 1 (E *EVAL) S)
(MOVEM 1 -2 P)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(JUMPN 1 TAG55)
(MOVE 1 -2 P)
(CALL 1 (E PRINT) S)
TAG55 (MOVE 1 -2 P)
(JRST 0 TAG6)
TAG53 (CAIE 1 (QUOTE I) S)
(JRST 0 TAG57)
(MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG61)
(MOVE 1 0 P)
(JRST 0 TAG60)
TAG61 (MOVE 1 0 P)
(CALL 1 (E *EVAL) S)
TAG60 (HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG2 (MOVE 1 -3 P)
(JUMPE 1 TAG70)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(MOVE 1 (SPECIAL TOPFLG) S)
(JUMPE 1 TAG74)
(MOVE 1 0 P)
(CALL 1 (E *EVAL) S)
(CALL 1 (E PRINT) S)
(JRST 0 TAG73)
TAG74 (MOVE 1 0 P)
(CALL 1 (E *EVAL) S)
TAG73 (CALL 1 (E NCONS) S)
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG100)
(MOVE 1 -3 P)
(HRRM@ 1 -2 P)
(HRRZ@ 2 -2 P)
(JRST 0 TAG77)
TAG100
(MOVE 2 -3 P)
(MOVEM 2 -1 P)
TAG77 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 2 -2 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG70 (MOVE 2 0 P)
(EXCH 1 -4 P)
(CALL 2 (E CONS) S)
(CLEARM 0 (SPECIAL COPYFLG) S)
(MOVEM 1 -10 P)
(SUB P (C 5 0 5 0))
(JRST 0 TAG1)
TAG57 (CAIE 1 (QUOTE N) S)
(JRST 0 TAG103)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG105)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG105
(HLRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(MOVE 1 (SPECIAL COPYFLG) S)
(JUMPE 1 TAG107)
(HRRZ@ 1 -4 P)
(CALL 1 (E COPY) S)
(MOVE 2 1)
(JRST 0 TAG106)
TAG107
(MOVEI 2 (QUOTE NIL))
(HRRZ@ 1 -4 P)
(CALL 2 (E *APPEND) S)
(MOVE 2 1)
TAG106
(MOVE 1 0 P)
(PUSHJ P EDITNCONC)
(SUB P (C 1 0 1 0))
(JRST 0 TAG34)
TAG103
(CAIE 1 (QUOTE P) S)
(JRST 0 TAG112)
(MOVE 1 (SPECIAL LASTP1) S)
(CAMN 1 (SPECIAL L) S)
(JRST 0 TAG114)
(MOVEM 1 (SPECIAL LASTP2) S)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL LASTP1) S)
TAG114
(HRRZ@ 1 -3 P)
(PUSHJ P BPNT)
(JRST 0 TAG34)
TAG112
(CAIE 1 (QUOTE F) S)
(JRST 0 TAG116)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E EDIT4F) S)
(JRST 0 TAG34)
TAG116
(CAIE 1 (QUOTE FS) S)
(JRST 0 TAG117)
TAG3 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JUMPE 1 TAG124)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL COM) S)
(CALL 1 (E EDITQF) S)
(JRST 0 TAG3)
TAG124
(JRST 0 TAG34)
TAG117
(CAIE 1 (QUOTE F=) S)
(JRST 0 TAG125)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE ==) S)
(CALL 2 (E CONS) S)
(MOVE 2 -1 P)
(CALL 2 (E EDIT4F) S)
(JRST 0 TAG34)
TAG125
(CAIE 1 (QUOTE ORF) S)
(JRST 0 TAG126)
(HRRZ@ 2 -3 P)
(MOVEI 1 (QUOTE *ANY*) S)
(CALL 2 (E CONS) S)
(MOVEI 2 (QUOTE N) S)
(CALL 2 (E EDIT4F) S)
(JRST 0 TAG34)
TAG126
(CAIE 1 (QUOTE BF) S)
(JRST 0 TAG127)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E EDITBF) S)
(JRST 0 TAG34)
TAG127
(CAIE 1 (QUOTE NTH) S)
(JRST 0 TAG130)
(MOVE 2 0 P)
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P EDITNTH)
(HLRZ@ 2 (SPECIAL L) S)
(MOVEM 1 -2 P)
(CAMN 1 2)
(JRST 0 TAG132)
(MOVE 2 (SPECIAL L) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL L) S)
TAG132
(JRST 0 TAG34)
TAG130
(CAIE 1 (QUOTE IF) S)
(JRST 0 TAG134)
(MOVE 1 0 P)
(CALL 1 (E EDVAL) S)
(MOVEM 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG136)
(HLRZ@ 1 -2 P)
(JUMPE 1 TAG136)
(HRRZ@ 1 -3 P)
(JUMPE 1 TAG143)
(MOVE 1 -1 P)
(PUSHJ P EDITCOMS)
TAG143
(JRST 0 TAG135)
TAG136
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG144)
(HRRZ@ 1 -3 P)
(CALL 1 (E CDDR) S)
(JUMPE 1 TAG144)
(HRRZ@ 1 -3 P)
(CALL 1 (E CADDR) S)
(PUSHJ P EDITCOMS)
(JRST 0 TAG135)
TAG144
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG135
(JRST 0 TAG34)
TAG134
(CAIE 1 (QUOTE BI) S)
(JRST 0 TAG151)
(PUSH P 0 P)
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG153)
(MOVE 2 -2 P)
(JRST 0 TAG152)
TAG153
(MOVE 2 -1 P)
TAG152
(PUSH P 2)
(HRRZ@ 1 -5 P)
(JUMPE 1 TAG157)
(HLRZ@ 3 (SPECIAL L) S)
(JRST 0 TAG156)
TAG157
(MOVEI 3 (QUOTE NIL))
TAG156
(POP P 2)
(POP P 1)
(CALL 3 (E BI) S)
(JRST 0 TAG34)
TAG151
(CAIE 1 (QUOTE RI) S)
(JRST 0 TAG160)
(PUSH P -1 P)
(PUSH P -1 P)
(HRRZ@ 1 -5 P)
(JUMPE 1 TAG162)
(HRRZ@ 1 -5 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG164)
(HLRZ@ 3 (SPECIAL L) S)
(JRST 0 TAG163)
TAG164
(MOVEI 3 (QUOTE NIL))
TAG163
(JRST 0 TAG161)
TAG162
(MOVEI 3 (QUOTE NIL))
TAG161
(MOVE 2 -1 P)
(POP P 1)
(CALL 3 (E RI) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG34)
TAG160
(MOVEI 2 (QUOTE (RO LI LO BO)) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG165)
(PUSH P 0 P)
(PUSH P -4 P)
(HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -6 P)
(JUMPE 1 TAG167)
(HLRZ@ 2 (SPECIAL L) S)
(JRST 0 TAG166)
TAG167
(MOVEI 2 (QUOTE NIL))
TAG166
(MOVE 1 -2 P)
(CALLF@ 2 0 P)
(SUB P (C 3 0 3 0))
(JRST 0 TAG34)
TAG165
(MOVE 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE M) S)
(JRST 0 TAG170)
(MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG172)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 (SPECIAL USERMACROS) S)
(MOVE 1 0 P)
(PUSHJ P EDITMAC)
(MOVEM 1 -2 P)
(JUMPE 1 TAG174)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(HRRM@ 1 -2 P)
(JRST 0 TAG7)
TAG174
(HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E CONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG171)
TAG172
(MOVEI 3 (QUOTE T) S)
(MOVE 2 (SPECIAL USERMACROS) S)
(HLRZ@ 1 0 P)
(PUSHJ P EDITMAC)
(MOVEM 1 -2 P)
(JUMPE 1 TAG202)
(HRRZ@ 1 -3 P)
(CALL 1 (E CADR) S)
(HRLM@ 1 -2 P)
(HRRZ@ 1 -3 P)
(CALL 1 (E CDDR) S)
(HRRM@ 1 -2 P)
(JRST 0 TAG7)
TAG202
(PUSH P (C 0 0 TAG205 0))
(PUSH P (SPECIAL EDITCOMSL) S)
(HLRZ@ 1 -2 P)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG205
(HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(HLRZ@ 1 0 P)
(CALL 2 (E CONS) S)
TAG171
(MOVE 2 (SPECIAL USERMACROS) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL USERMACROS) S)
(JRST 0 TAG34)
TAG170
(CAIE 1 (QUOTE NX) S)
(JRST 0 TAG206)
(MOVE 1 0 P)
(PUSHJ P EDIT*)
(JRST 0 TAG34)
TAG206
(CAIE 1 (QUOTE BK) S)
(JRST 0 TAG207)
(MOVE 1 0 P)
(CALL 1 (E MINUS) S)
(PUSHJ P EDIT*)
(JRST 0 TAG34)
TAG207
(CAIE 1 (QUOTE ORR) S)
(JRST 0 TAG210)
(HRRZ@ 1 -3 P)
(PUSHJ P EDOR)
(JRST 0 TAG34)
TAG210
(CAIE 1 (QUOTE MBD) S)
(JRST 0 TAG211)
(HRRZ@ 2 -3 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E EDITMBD) S)
(JRST 0 TAG34)
TAG211
(CAIE 1 (QUOTE XTR) S)
(JRST 0 TAG212)
(HRRZ@ 2 -3 P)
(MOVEI 1 (QUOTE NIL))
(CALL 2 (E EDITXTR) S)
(JRST 0 TAG34)
TAG212
(MOVEI 2 (QUOTE (THRU TO)) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG213)
(HLRZ@ 3 -3 P)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P EDITTO)
(JRST 0 TAG34)
TAG213
(MOVEI 2 (QUOTE (A B : AFTER BEFORE)) S)
(MOVE 1 (SPECIAL SELECTQ) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG214)
(HRRZ@ 3 -3 P)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 -3 P)
(CALL 3 (E EDIT:) S)
(JRST 0 TAG34)
TAG214
(MOVE 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE MV) S)
(JRST 0 TAG215)
(HRRZ@ 3 -3 P)
(HRRZ@ 3 3)
(HRRZ@ 2 -3 P)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE NIL))
(CALL 3 (E EDITMV) S)
(JRST 0 TAG34)
TAG215
(MOVEI 2 (QUOTE (LP LPQ)) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG216)
(HLRZ@ 1 -3 P)
(CAIE 1 (QUOTE LPQ) S)
(TDZA 2 2)
(MOVEI 2 (QUOTE T) S)
(HRRZ@ 1 -3 P)
(PUSHJ P EDRPT)
(JRST 0 TAG34)
TAG216
(MOVE 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE LC) S)
(JRST 0 TAG217)
(HRRZ@ 1 -3 P)
(PUSHJ P EDLOC)
(JRST 0 TAG34)
TAG217
(CAIE 1 (QUOTE LCL) S)
(JRST 0 TAG220)
(HRRZ@ 1 -3 P)
(PUSHJ P EDLOCL)
(JRST 0 TAG34)
TAG220
(CAIE 1 (QUOTE ←) S)
(JRST 0 TAG221)
(MOVE 1 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E EDITFPAT) S)
(MOVEM 1 -1 P)
TAG4 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG230)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG230)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(CAME 1 -1 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG227)
TAG230
(HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE IF) S)
(JRST 0 TAG234)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E EDVAL) S)
(MOVEM 1 -3 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG236)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG235)
TAG236
(MOVE 1 -3 P)
TAG235
(JRST 0 TAG227)
TAG234
(PUSH P -1 P)
(HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG244)
(HLRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(JRST 0 TAG243)
TAG244
(HLRZ@ 2 (SPECIAL L) S)
TAG243
(POP P 1)
(CALL 2 (E EDIT4E) S)
TAG227
(JUMPE 1 TAG226)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL L) S)
(JRST 0 TAG222)
TAG226
(HRRZ@ 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L) S)
(JUMPN 1 TAG4)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(MOVEI 1 (QUOTE NIL))
TAG222
(PUSHJ P SPECSTR)
(MOVEM 1 (SPECIAL L) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG34)
TAG221
(CAIE 1 (QUOTE BELOW) S)
(JRST 0 TAG247)
(PUSH P 0 P)
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG251)
(MOVE 2 -2 P)
(JRST 0 TAG250)
TAG251
(MOVEI 2 (QUOTE 1))
TAG250
(MOVE 1 0 P)
(PUSHJ P EDITBELOW)
(SUB P (C 1 0 1 0))
(JRST 0 TAG34)
TAG247
(CAIE 1 (QUOTE SW) S)
(JRST 0 TAG254)
(HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(PUSHJ P EDITSW)
(JRST 0 TAG34)
TAG254
(CAIE 1 (QUOTE BIND) S)
(JRST 0 TAG255)
(JSP 6 SPECBIND)
(0 0 (SPECIAL #1) S)
(0 0 (SPECIAL #2) S)
(0 0 (SPECIAL #3) S)
(HRRZ@ 1 -3 P)
(PUSHJ P EDITCOMS)
(PUSHJ P SPECSTR)
(JRST 0 TAG34)
TAG255
(CAIE 1 (QUOTE COMS) S)
(JRST 0 TAG261)
TAG5 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JUMPE 1 TAG266)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL) S)
(MOVEM 1 (SPECIAL COM) S)
(MOVEI 2 (QUOTE NIL))
(PUSHJ P EDITCOM)
(JRST 0 TAG5)
TAG266
(JRST 0 TAG34)
TAG261
(CAIE 1 (QUOTE COMSQ) S)
(JRST 0 TAG267)
(HRRZ@ 1 -3 P)
(PUSHJ P EDITCOMS)
(JRST 0 TAG34)
TAG267
(MOVEI 3 (QUOTE T) S)
(MOVE 2 (SPECIAL EDITMACROS) S)
(HLRZ@ 1 -3 P)
(PUSHJ P EDITMAC)
(MOVEM 1 -2 P)
(JUMPN 1 TAG273)
(MOVEI 3 (QUOTE T) S)
(MOVE 2 (SPECIAL USERMACROS) S)
(HLRZ@ 1 -3 P)
(PUSHJ P EDITMAC)
(MOVEM 1 -2 P)
(JUMPN 1 TAG273)
(MOVE 1 -3 P)
(PUSHJ P EDITDEFAULT)
(JRST 0 TAG6)
TAG273
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG300)
(HRRZ@ 3 -2 P)
(HRRZ@ 2 -3 P)
(MOVE 1 -1 P)
(CALL 3 (E SUBPAIR) S)
(PUSHJ P EDITCOMS)
(JRST 0 TAG272)
TAG300
(HRRZ@ 3 -2 P)
(MOVE 2 -1 P)
(HRRZ@ 1 -3 P)
(CALL 3 (E SUBST) S)
(PUSHJ P EDITCOMS)
TAG272
TAG34
TAG7 (MOVEI 1 (QUOTE NIL))
TAG6 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITMAC SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAME 2 -4 P)
(JRST 0 TAG7)
(HRRZ@ 1 1)
(MOVEM 1 -1 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 -1 P)
(JRST 0 TAG12)
TAG13 (HLRZ@ 1 -1 P)
(JUMPE 1 TAG16)
(TDZA 1 1)
TAG16 (MOVEI 1 (QUOTE T) S)
TAG12 (JUMPE 1 TAG11)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG11
TAG7 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP EDITCOMS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL COMS) S)
TAG1 (MOVE 1 (SPECIAL COMS) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(HLRZ@ 1 (SPECIAL L) S)
(JRST 0 TAG2)
TAG6 (MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL COMS) S)
(PUSHJ P EDITCOM)
(HRRZ@ 1 (SPECIAL COMS) S)
(MOVEM 1 (SPECIAL COMS) S)
(JRST 0 TAG1)
TAG2 (JRST 0 SPECSTR)
NIL
(LAP EDITH SUBR)
(PUSH P 1)
(CALL 0 (E TERPRI) S)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HLRZ@ 1 1)
(JUMPN 1 TAG11)
(MOVEI 1 (QUOTE BLOCK) S)
(CALL 1 (E PRIN1) S)
(JRST 0 TAG2)
TAG11 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG3)
(HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG14)
(MOVEI 1 (QUOTE --) S)
(CALL 1 (E NCONS) S)
(HLRZ@ 2 0 P)
(HLRZ@ 2 2)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRIN1) S)
(JRST 0 TAG2)
TAG14 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E PRIN1) S)
TAG2 (MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
TAG3 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP EDIT!UNDO SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (SPECIAL UNDOLST) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 1)
(JUMPE 1 TAG3)
(MOVE 1 -2 P)
(JUMPN 1 TAG15)
(HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL SELECTQ) S)
(MOVEI 2 (QUOTE (NIL !UNDO UNBLOCK)) S)
(CALL 2 (E MEMQ) S)
(JUMPN 1 TAG2)
(MOVE 1 (SPECIAL SELECTQ) S)
(CAIE 1 (QUOTE UNDO) S)
(JRST 0 TAG20)
(MOVE 1 -3 P)
(JUMPE 1 TAG2)
(JRST 0 TAG17)
TAG20
TAG17 (JRST 0 TAG14)
TAG15 (HLRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CAME 1 -2 P)
(JRST 0 TAG2)
TAG14 (MOVE 2 -4 P)
(HLRZ@ 1 -1 P)
(PUSHJ P UNDOEDITCOM)
(MOVE 1 -3 P)
(JUMPE 1 TAG5)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 0 P)
TAG2 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVE 1 0 P)
(JUMPN 1 TAG5)
(MOVE 1 -1 P)
(JUMPE 1 TAG31)
(HRRZ@ 1 1)
(JUMPE 1 TAG31)
(MOVEI 1 (QUOTE BLOCKED) S)
(CALL 1 (E PRINT) S)
(JRST 0 TAG30)
TAG31 (CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE NOTHING/ SAVED) S)
(CALL 1 (E PRINC) S)
TAG30
TAG5 (MOVEI 1 (QUOTE NIL))
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP UNDOEDITCOM SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG5)
TAG6 (MOVE 1 (SPECIAL L) S)
(CALL 1 (E LAST) S)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 1 (E LAST) S)
(HLRZ@ 2 1)
(HLRZ@ 1 0 P)
(SUB P (C 1 0 1 0))
(CAMN 1 2)
(JRST 0 TAG7)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE DIFFERENT/ EXPRESSION) S)
(CALL 1 (E PRINC) S)
(CLEARM 0 (SPECIAL COM) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG7
TAG5 (HLRZ@ 1 -2 P)
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(MOVEM 2 (SPECIAL L) S)
(MOVEM 1 0 P)
(HRRZ@ 1 -2 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPE 1 TAG15)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE R) S)
(JRST 0 TAG17)
(HRRZ@ 1 0 P)
(CALL 1 (E CADDR) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE R) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE NIL))
(PUSHJ P EDITCOM)
(PUSHJ P SPECSTR)
(JRST 0 TAG16)
TAG17 (HRRZ@ 3 0 P)
(HRRZ@ 3 3)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HLRZ@ 1 0 P)
(PUSHJ P EDITSMASH)
TAG16 (JRST 0 TAG1)
TAG15 (SUB P (C 2 0 2 0))
(HRRZ@ 2 -2 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E CONS) S)
(MOVE 3 1)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 -2 P)
(PUSHJ P EDITSMASH)
(MOVE 1 -1 P)
(JUMPE 1 TAG23)
(MOVE 1 0 P)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG25)
(MOVE 1 0 P)
(JRST 0 TAG24)
TAG25 (MOVEI 2 (QUOTE (--)) S)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
TAG24 (CALL 1 (E PRINT) S)
(JUMPE 1 TAG23)
(MOVEI 1 (QUOTE UNDONE) S)
(CALL 1 (E PRINC) S)
(JUMPN 1 TAG22)
TAG23
TAG22 (MOVEI 1 (QUOTE T) S)
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDITSMASH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG2 (HRRZ@ 2 -2 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E CONS) S)
(MOVE 2 -2 P)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL UNDOLST1) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL UNDOLST1) S)
(EXCH 1 -1 P)
(HRLM@ 1 -2 P)
(POP P 1)
(HRRM@ 1 -1 P)
(EXCH 1 -1 P)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EDITNCONC SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG5)
(MOVE 1 2)
(JRST 0 TAG4)
TAG5 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG4)
TAG7 (MOVE 1 -2 P)
(CALL 1 (E LAST) S)
(MOVE 3 -1 P)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(PUSHJ P EDITSMASH)
(MOVE 1 -2 P)
TAG4 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDITDSUBST SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
TAG1 (MOVE 1 0 P)
(CALL 1 (E PATOM) S)
(JUMPN 1 TAG3)
(MOVE 1 -1 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG10)
(HLRZ@ 1 0 P)
(CAME 1 -1 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG7)
TAG10 (HLRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E EQUAL) S)
TAG7 (JUMPE 1 TAG6)
(MOVE 1 -2 P)
(CALL 1 (E COPY) S)
(HRRZ@ 3 0 P)
(MOVE 2 1)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(JRST 0 TAG5)
TAG6 (HLRZ@ 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E EDITDSUBST) S)
TAG5 (MOVE 1 -1 P)
(JUMPE 1 TAG16)
(HRRZ@ 1 0 P)
(CAME 1 -1 P)
(JRST 0 TAG16)
(HLRZ@ 1 0 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E COPY) S)
(MOVE 3 1)
(POP P 2)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(JRST 0 TAG3)
TAG16 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDIT1F SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL L) S)
(PUSH P 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG2)
(HRRZ@ 1 2)
(JUMPN 1 TAG4)
(CALL 1 (E ERR) S)
(JRST 0 TAG3)
TAG4 (HRRZ@ 1 (SPECIAL L) S)
TAG3 (JRST 0 TAG1)
TAG2 (HLRZ@ 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG1)
TAG10 (MOVEI 2 (QUOTE 0))
(MOVE 1 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG11)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E LENGTH) S)
(MOVE 2 0 P)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG13)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG12)
TAG13 (MOVE 2 0 P)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E NTH) S)
(MOVEM 1 (SPECIAL LASTAIL) S)
(MOVE 2 (SPECIAL L) S)
(HLRZ@ 1 1)
(CALL 2 (E CONS) S)
TAG12 (JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(CALL 1 (E MINUS) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E LENGTH) S)
(POP P 2)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG1)
TAG16 (HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E LENGTH) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E ADD1) S)
(MOVE 2 -1 P)
(CALL 2 (E *PLUS) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E NTH) S)
(MOVEM 1 (SPECIAL LASTAIL) S)
(MOVE 2 (SPECIAL L) S)
(HLRZ@ 1 1)
(CALL 2 (E CONS) S)
(SUB P (C 1 0 1 0))
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP EDIT2F SUBR)
(PUSH P 1)
(PUSH P 2)
(HLRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG6)
TAG7 (MOVE 1 (SPECIAL COPYFLG) S)
(JUMPE 1 TAG10)
(MOVE 1 2)
(CALL 1 (E COPY) S)
(MOVEM 1 -1 P)
(JRST 0 TAG6)
TAG10 (MOVEI 2 (QUOTE NIL))
(MOVE 1 -1 P)
(CALL 2 (E *APPEND) S)
(MOVEM 1 -1 P)
TAG6 (MOVEI 2 (QUOTE 0))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG14)
(MOVE 1 0 P)
(CALL 1 (E LENGTH) S)
(MOVE 2 -2 P)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG15)
TAG16 (MOVE 1 -1 P)
(JUMPE 1 TAG1)
(JRST 0 TAG2)
TAG15 (JRST 0 TAG13)
TAG14 (MOVE 1 -2 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG23)
(MOVE 1 -1 P)
(JUMPE 1 TAG23)
(MOVE 1 -2 P)
(CALL 1 (E MINUS) S)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E LENGTH) S)
(POP P 2)
(CALL 2 (E *LESS) S)
(JUMPE 1 TAG21)
TAG23 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG13)
TAG21 (MOVE 1 -2 P)
(CAIN 1 (QUOTE -1))
(JRST 0 TAG30)
(CALL 1 (E MINUS) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E NTH) S)
(MOVEM 1 0 P)
TAG30 (HRRZ@ 2 0 P)
(HLRZ@ 1 0 P)
(CALL 2 (E CONS) S)
(MOVE 3 1)
(HLRZ@ 2 -1 P)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(HRRZ@ 1 -1 P)
(JUMPE 1 TAG33)
(HLRZ@ 1 0 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG34 0))
(HRRZ@ 1 -3 P)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG34 (MOVE 3 1)
(POP P 2)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
TAG33 (JRST 0 TAG4)
TAG13
TAG1 (MOVE 1 -2 P)
(CAIE 1 (QUOTE 1))
(JRST 0 TAG36)
(HRRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG37)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JUMPN 1 TAG37)
TAG37 (HRRZ@ 3 0 P)
(HRRZ@ 3 3)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(JRST 0 TAG35)
TAG36 (MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E NTH) S)
(HRRZ@ 3 1)
(HRRZ@ 3 3)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(PUSHJ P EDITSMASH)
TAG35 (JRST 0 TAG4)
TAG2 (MOVE 1 -2 P)
(CAIN 1 (QUOTE 1))
(JRST 0 TAG45)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 2 (E NTH) S)
(MOVEM 1 0 P)
TAG45 (HRRZ@ 3 0 P)
(HLRZ@ 2 -1 P)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(HRRZ@ 1 -1 P)
(JUMPE 1 TAG50)
(HLRZ@ 1 0 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG51 0))
(HRRZ@ 1 -3 P)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG51 (MOVE 3 1)
(POP P 2)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
TAG50
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDIT4E SUBR)
(PUSH P 1)
(PUSH P 2)
(CAME 1 2)
(JRST 0 TAG5)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG4)
TAG5 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(CAIN 1 (QUOTE &) S)
(JRST 0 TAG7)
(CALL 2 (E EQUAL) S)
(JUMPN 1 TAG7)
(TDZA 1 1)
TAG7 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG4)
TAG6 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE *ANY*) S)
(JRST 0 TAG11)
TAG1 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPE 1 TAG13)
(MOVE 2 0 P)
(HLRZ@ 1 1)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG17)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG12)
TAG17 (JRST 0 TAG1)
TAG13 (MOVEI 1 (QUOTE NIL))
TAG12 (JRST 0 TAG4)
TAG11 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG20)
(MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG20)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E EXPLODEC) S)
(PUSH P 1)
TAG2 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG27)
(MOVE 1 0 P)
(CALL 1 (E FREELIST) S)
(MOVEI 1 (QUOTE =) S)
(CALL 1 (E PRINT) S)
(MOVE 1 -1 P)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG23)
TAG27 (MOVE 1 0 P)
(JUMPE 1 TAG24)
(HLRZ@ 1 1)
(HLRZ@ 2 -2 P)
(CAMN 2 1)
(JRST 0 TAG31)
(MOVE 1 0 P)
(CALL 1 (E FREELIST) S)
(JRST 0 TAG24)
TAG31 (HRRZ@ 1 -2 P)
(HRRZ@ 2 0 P)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
(JRST 0 TAG2)
TAG24 (MOVEI 1 (QUOTE NIL))
TAG23 (SUB P (C 1 0 1 0))
(JRST 0 TAG4)
TAG20 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE --) S)
(JRST 0 TAG33)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPE 1 TAG34)
TAG3 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG43)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG37)
TAG43 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG40)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG3)
TAG40 (MOVEI 1 (QUOTE NIL))
TAG37 (JUMPN 1 TAG34)
(TDZA 1 1)
TAG34 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG4)
TAG33 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE ==) S)
(JRST 0 TAG44)
(HRRZ@ 1 -1 P)
(CAME 1 2)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG4)
TAG44 (MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG45)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG4)
TAG45 (HLRZ@ 2 2)
(HLRZ@ 1 -1 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG46)
(HRRZ@ 2 0 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E EDIT4E) S)
TAG46
TAG4 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EDITQF SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG5)
(HLRZ@ 1 (SPECIAL L) S)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG5)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(MOVE 1 (SPECIAL UPFINDFLG) S)
(JUMPE 1 TAG13)
(MOVE 1 0 P)
(JRST 0 TAG12)
TAG13 (MOVE 1 0 P)
(MOVEM 1 (SPECIAL LASTAIL) S)
(HLRZ@ 1 0 P)
TAG12 (MOVE 2 (SPECIAL L) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG4)
TAG5 (MOVEI 2 (QUOTE N) S)
(MOVE 1 -1 P)
(CALL 2 (E EDIT4F) S)
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EDIT4F SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL SN) S)
(0 0 (SPECIAL FF) S)
(PUSH P 1)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVEM 1 (SPECIAL FF) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL COM) S)
(MOVE 1 0 P)
(CALL 1 (E EDITFPAT) S)
(PUSH P (SPECIAL L) S)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL SN) S)
(CAIE 1 (QUOTE N) S)
(JRST 0 TAG7)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL SN) S)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG2)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG11)
(MOVE 1 (SPECIAL UPFINDFLG) S)
(JUMPE 1 TAG11)
(MOVE 2 (SPECIAL L) S)
(HLRZ@ 1 2)
(HLRZ@ 1 1)
(CALL 2 (E CONS) S)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG11 (MOVE 2 (SPECIAL L) S)
(HLRZ@ 1 2)
(HLRZ@ 1 1)
(CALL 2 (E CONS) S)
(MOVEM 1 -1 P)
TAG7 (MOVE 1 (SPECIAL SN) S)
(JUMPE 1 TAG17)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG17)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL SN) S)
TAG17 (MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG30)
(HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE :::) S)
(JRST 0 TAG30)
(HRRZ@ 1 -2 P)
(JRST 0 TAG27)
TAG30 (MOVE 1 -2 P)
TAG27 (HLRZ@ 2 -1 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG24)
(MOVE 1 (SPECIAL SN) S)
(JUMPE 1 TAG37)
(CALL 1 (E SUB1) S)
(MOVEM 1 (SPECIAL SN) S)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG24)
TAG37 (MOVE 1 -1 P)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG3)
TAG24 (HLRZ@ 1 -1 P)
(MOVEM 1 0 P)
TAG1 (MOVE 3 (SPECIAL MAXLEVEL) S)
(MOVE 2 0 P)
(MOVE 1 -2 P)
(CALL 3 (E EDIT4F1) S)
(JUMPE 1 TAG42)
(HRRZ@ 1 (SPECIAL L) S)
(JUMPE 1 TAG44)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(JUMPN 1 TAG43)
TAG44
TAG43 (PUSH P (C 0 0 TAG45 0))
(HLRZ@ 1 (SPECIAL FF) S)
(PUSH P 1)
(HLRZ@ 1 -3 P)
(HRRZ@ 2 (SPECIAL FF) S)
(HLRZ@ 2 2)
(CAME 2 1)
(JRST 0 TAG47)
(HRRZ@ 1 -3 P)
(JRST 0 TAG46)
TAG47 (MOVE 1 -3 P)
TAG46 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG45 (MOVEM 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 TAG3)
TAG42 (MOVE 1 (SPECIAL SN) S)
(JUMPN 1 TAG52)
(CALL 1 (E ERR) S)
TAG52
TAG2 (HLRZ@ 1 -1 P)
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JUMPN 1 TAG55)
(CALL 1 (E ERR) S)
(JRST 0 TAG54)
TAG55 (HLRZ@ 2 1)
(MOVE 1 0 P)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG60)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG1)
TAG60
TAG54 (JRST 0 TAG2)
TAG3 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITFPAT SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG2)
(HLRZ@ 1 0 P)
(CAIN 1 (QUOTE ==) S)
(JRST 0 TAG7)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG5)
TAG7 (MOVE 1 0 P)
(JRST 0 TAG4)
TAG5 (PUSH P (C 0 0 TAG12 0))
(MOVEI D (QUOTE EDITFPAT) S)
(PUSH P D)
(PUSH P -2 P)
(MOVNI 6 2)
(JCALL 16 (E MAPCAR) S)
TAG12
TAG4 (JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE -1))
(MOVE 1 0 P)
(CALL 2 (E NTHCHAR) S)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG13)
(MOVE 1 0 P)
(CALL 1 (E EXPLODEC) S)
(MOVEI 2 (QUOTE /@) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG13 (MOVE 1 0 P)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP EDIT4F1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
TAG1 (MOVEI 2 (QUOTE 0))
(MOVE 1 0 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG6)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE MAXLEVEL/ EXCEEDED) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG3)
TAG6 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG3)
(MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG11)
(HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE :::) S)
(JRST 0 TAG11)
(MOVE 2 -1 P)
(HRRZ@ 1 -2 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG11)
(MOVE 1 (SPECIAL SN) S)
(JUMPE 1 TAG10)
(CALL 1 (E SUB1) S)
(MOVEM 1 (SPECIAL SN) S)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG10)
TAG11 (TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG5)
(MOVE 1 -2 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG22)
(HLRZ@ 1 -2 P)
(CAIN 1 (QUOTE :::) S)
(JRST 0 TAG16)
TAG22 (HLRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG16)
(MOVE 1 (SPECIAL SN) S)
(JUMPE 1 TAG25)
(CALL 1 (E SUB1) S)
(MOVEM 1 (SPECIAL SN) S)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG16)
TAG25 (MOVE 1 (SPECIAL UPFINDFLG) S)
(JUMPE 1 TAG32)
(HLRZ@ 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG30)
TAG32 (MOVE 1 -1 P)
(MOVEM 1 (SPECIAL LASTAIL) S)
(HLRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG30 (JRST 0 TAG5)
TAG16 (MOVE 1 -2 P)
(JUMPE 1 TAG35)
(HRRZ@ 1 -1 P)
(CAME 1 -2 P)
(JRST 0 TAG35)
(MOVE 1 (SPECIAL SN) S)
(JUMPE 1 TAG41)
(CALL 1 (E SUB1) S)
(MOVEM 1 (SPECIAL SN) S)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG35)
TAG41 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG35 (MOVE 1 (SPECIAL SN) S)
(JUMPE 1 TAG43)
(HLRZ@ 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG43)
(HLRZ@ 1 -1 P)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E SUB1) S)
(MOVE 3 1)
(POP P 2)
(MOVE 1 -2 P)
(CALL 3 (E EDIT4F1) S)
(JUMPE 1 TAG43)
(MOVE 1 (SPECIAL SN) S)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG43)
(HLRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG43 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG5 (MOVE 1 (SPECIAL FF) S)
(JUMPE 1 TAG52)
(CALL 1 (E CADR) S)
(CAMN 1 -1 P)
(JRST 0 TAG52)
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL FF) S)
(CALL 2 (E TCONC) S)
TAG52 (MOVE 1 (SPECIAL FF) S)
(JUMPN 1 TAG56)
(MOVEI 1 (QUOTE T) S)
TAG56 (JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDITFINDP SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL SN) S)
(0 0 (SPECIAL LASTAIL) S)
(0 0 (SPECIAL FF) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL SN) S)
(JUMPN 3 TAG5)
(MOVE 1 2)
(CALL 1 (E EDITFPAT) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG4)
TAG5
TAG4 (MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E EDIT4E) S)
(JUMPN 1 TAG7)
(MOVE 3 (SPECIAL MAXLEVEL) S)
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 3 (E EDIT4F1) S)
TAG7 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITBF SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL FF) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P (SPECIAL L) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVEM 1 (SPECIAL FF) S)
(MOVE 1 -2 P)
(MOVEM 1 (SPECIAL COM) S)
(MOVE 1 -2 P)
(CALL 1 (E EDITFPAT) S)
(MOVEM 1 -2 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -3 P)
(JUMPN 1 TAG10)
(HRRZ@ 1 -2 P)
(JUMPN 1 TAG2)
TAG10
TAG1 (MOVE 4 -1 P)
(MOVE 3 (SPECIAL MAXLEVEL) S)
(HLRZ@ 2 -2 P)
(MOVE 1 -4 P)
(PUSHJ P EDITBF1)
(JUMPE 1 TAG13)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(PUSH P (C 0 0 TAG14 0))
(HLRZ@ 1 (SPECIAL FF) S)
(PUSH P 1)
(HRRZ@ 1 (SPECIAL FF) S)
(HLRZ@ 1 1)
(HLRZ@ 2 -4 P)
(CAME 2 1)
(JRST 0 TAG16)
(HRRZ@ 1 -4 P)
(JRST 0 TAG15)
TAG16 (MOVE 1 -4 P)
TAG15 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG14 (MOVEM 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 TAG3)
TAG13
TAG2 (HLRZ@ 1 -2 P)
(MOVEM 1 0 P)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JUMPN 1 TAG22)
(CALL 1 (E ERR) S)
(JRST 0 TAG21)
TAG22 (HLRZ@ 2 1)
(MOVE 1 0 P)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG1)
(HLRZ@ 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E TAILP) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG1)
TAG21 (JRST 0 TAG2)
TAG3 (SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITBF1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVEI 2 (QUOTE 0))
(MOVE 1 -2 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG7)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE MAXLEVEL/ EXCEEDED) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG4)
TAG7 (MOVE 1 -1 P)
(CAME 1 -3 P)
(JRST 0 TAG11)
(MOVE 1 -4 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG15)
(HLRZ@ 1 -4 P)
(CAIE 1 (QUOTE :::) S)
(JRST 0 TAG15)
(HRRZ@ 1 -4 P)
(JRST 0 TAG14)
TAG15 (MOVE 1 -4 P)
TAG14 (MOVE 2 -3 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG13)
(MOVE 2 -3 P)
(MOVE 1 (SPECIAL FF) S)
(CALL 2 (E TCONC) S)
TAG13 (JRST 0 TAG3)
TAG11 (MOVE 1 -3 P)
(MOVEM 1 0 P)
TAG2 (HRRZ@ 1 0 P)
(CAMN 1 -1 P)
(JRST 0 TAG24)
(HRRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG24)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG24 (MOVE 1 0 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG31)
(HLRZ@ 1 -1 P)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E SUB1) S)
(MOVEI 4 (QUOTE NIL))
(MOVE 3 1)
(POP P 2)
(MOVE 1 -4 P)
(PUSHJ P EDITBF1)
(JUMPE 1 TAG31)
(HLRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(JRST 0 TAG30)
TAG31 (HLRZ@ 1 -4 P)
(CAIE 1 (QUOTE :::) S)
(JRST 0 TAG36)
(MOVE 2 -1 P)
(HRRZ@ 1 -4 P)
(CALL 2 (E EDIT4E) S)
(JUMPN 1 TAG35)
TAG36 (TDZA 1 1)
TAG35 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG30)
(MOVE 1 -4 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG43)
(HLRZ@ 1 -4 P)
(CAIN 1 (QUOTE :::) S)
(JRST 0 TAG37)
TAG43 (HLRZ@ 2 -1 P)
(MOVE 1 -4 P)
(CALL 2 (E EDIT4E) S)
(JUMPE 1 TAG37)
(MOVE 1 (SPECIAL UPFINDFLG) S)
(JUMPE 1 TAG50)
(HLRZ@ 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG46)
TAG50 (MOVE 1 -1 P)
(MOVEM 1 (SPECIAL LASTAIL) S)
(HLRZ@ 1 -1 P)
(MOVEM 1 -1 P)
TAG46 (JRST 0 TAG30)
TAG37 (MOVE 1 -4 P)
(JUMPE 1 TAG53)
(HRRZ@ 1 -1 P)
(CAME 1 -4 P)
(JRST 0 TAG53)
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG30)
TAG53 (MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG30 (HRRZ@ 1 (SPECIAL FF) S)
(HLRZ@ 1 1)
(CAMN 1 -1 P)
(JRST 0 TAG61)
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL FF) S)
(CALL 2 (E TCONC) S)
TAG61 (MOVE 1 (SPECIAL FF) S)
(JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP EDITNTH SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 2)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG3)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E MEMQ#) S)
(JUMPN 1 TAG5)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVE 1 0 P)
(PUSHJ P EDITELT)
(MOVE 2 -1 P)
(MOVEM 1 0 P)
(CALL 2 (E MEMQ#) S)
(JUMPN 1 TAG5)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E TAILP) S)
TAG5 (JRST 0 TAG1)
TAG3 (MOVE 1 0 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG6)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG1)
TAG6 (CALL 1 (E MINUSP) S)
(JUMPE 1 TAG14)
(MOVE 1 -1 P)
(CALL 1 (E LENGTH) S)
(MOVE 2 0 P)
(CALL 2 (E *PLUS) S)
(MOVEI 2 (QUOTE 1))
(CALL 2 (E *PLUS) S)
(MOVEI 2 (QUOTE 0))
(MOVEM 1 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG12)
TAG14 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E NTH) S)
TAG12 (MOVEM 1 0 P)
(JUMPN 1 TAG7)
(CALL 1 (E ERR) S)
(JRST 0 TAG1)
TAG7 (MOVE 1 0 P)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BPNT0 SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 (SPECIAL LASTP1) S)
(CAMN 1 (SPECIAL L) S)
(JRST 0 TAG2)
(MOVEM 1 (SPECIAL LASTP2) S)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL LASTP1) S)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E TAILP) S)
(MOVEM 1 (SPECIAL $%DOTFLG) S)
(MOVEI 1 (QUOTE " ") S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E PRINTLEV) S)
(JRST 0 TAG4)
TAG5 (CALL 0 (E TERPRI) S)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E SPRINT) S)
(CALL 0 (E TERPRI) S)
TAG4 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP BPNT SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG5)
(HLRZ@ 1 (SPECIAL L) S)
(HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(MOVEM 1 0 P)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E TAILP) S)
(MOVEM 1 (SPECIAL $%DOTFLG) S)
(JRST 0 TAG4)
TAG5 (HLRZ@ 2 -2 P)
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P EDITNTH)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
TAG4 (HRRZ@ 1 -2 P)
(JUMPN 1 TAG11)
(MOVEI 1 (QUOTE 2))
(MOVEM 1 -1 P)
(JRST 0 TAG10)
TAG11 (HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG13)
(CALL 1 (E ERR) S)
(JRST 0 TAG10)
TAG13 (MOVE 1 -1 P)
(CALL 1 (E MINUSP) S)
(JUMPE 1 TAG15)
(CALL 0 (E ERR) S)
TAG15
TAG10 (MOVEI 1 (QUOTE " ") S)
(MOVEM 1 (SPECIAL %PREVFN%) S)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(SUB P (C 3 0 3 0))
(JCALL 2 (E PRINTLEV) S)
NIL
(LAP RI SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(EXCH 2 1)
(MOVE 1 3)
(PUSHJ P EDITNTH)
(MOVE 2 -1 P)
(PUSH P 1)
(HLRZ@ 1 1)
(PUSHJ P EDITNTH)
(PUSH P 1)
(MOVE 1 -1 P)
(JUMPE 1 TAG7)
(MOVE 1 0 P)
(JUMPN 1 TAG5)
TAG7 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG5 (HLRZ@ 1 -1 P)
(HRRZ@ 2 -1 P)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(PUSHJ P EDITNCONC)
(MOVE 3 1)
(POP P 2)
(MOVE 1 -1 P)
(PUSHJ P EDITSMASH)
(MOVEI 3 (QUOTE NIL))
(HLRZ@ 2 0 P)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP RO SUBR)
(PUSH P 2)
(MOVE 2 1)
(PUSH P 1)
(MOVE 1 -1 P)
(PUSHJ P EDITNTH)
(MOVEM 1 -1 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
TAG4 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG2 (HLRZ@ 1 -1 P)
(CALL 1 (E LAST) S)
(HRRZ@ 3 -1 P)
(HLRZ@ 2 1)
(PUSHJ P EDITSMASH)
(MOVEI 3 (QUOTE NIL))
(HLRZ@ 2 -1 P)
(EXCH 1 -1 P)
(SUB P (C 2 0 2 0))
(JRST 0 EDITSMASH)
NIL
(LAP LI SUBR)
(EXCH 2 1)
(PUSH P 1)
(PUSHJ P EDITNTH)
(MOVEM 1 0 P)
(JUMPN 1 TAG2)
(CALL 1 (E ERR) S)
TAG2 (HRRZ@ 2 0 P)
(HLRZ@ 1 0 P)
(CALL 2 (E CONS) S)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 1)
(POP P 1)
(JRST 0 EDITSMASH)
NIL
(LAP LO SUBR)
(EXCH 2 1)
(PUSH P 1)
(PUSHJ P EDITNTH)
(MOVEM 1 0 P)
(JUMPE 1 TAG4)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
TAG4 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG2 (HLRZ@ 3 0 P)
(HRRZ@ 3 3)
(HLRZ@ 2 0 P)
(HLRZ@ 2 2)
(POP P 1)
(JRST 0 EDITSMASH)
NIL
(LAP BI SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 3)
(PUSHJ P EDITNTH)
(PUSH P 1)
(HRRZ@ 1 1)
(MOVE 2 -3 P)
(PUSH P 1)
(MOVE 1 -2 P)
(PUSHJ P EDITNTH)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG5)
(CALL 1 (E LENGTH) S)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E LENGTH) S)
(POP P 2)
(CALL 2 (E *LESS) S)
(JUMPN 1 TAG5)
(MOVEI 3 (QUOTE NIL))
(HLRZ@ 2 -1 P)
(MOVE 1 -1 P)
(PUSHJ P EDITSMASH)
(HRRZ@ 2 -2 P)
(HLRZ@ 1 -2 P)
(CALL 2 (E CONS) S)
(MOVE 3 0 P)
(MOVE 2 1)
(MOVE 1 -2 P)
(PUSHJ P EDITSMASH)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP BO SUBR)
(EXCH 2 1)
(PUSH P 1)
(PUSHJ P EDITNTH)
(MOVEM 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG2 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(HRRZ@ 2 0 P)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 1 1)
(PUSHJ P EDITNCONC)
(MOVE 3 1)
(POP P 2)
(POP P 1)
(JRST 0 EDITSMASH)
NIL
(LAP EDITDEFAULT SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL LCFLG) S)
(JUMPE 1 TAG5)
(CAIE 1 (QUOTE T) S)
(JRST 0 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E EDITQF) S)
(JRST 0 TAG6)
TAG7 (MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL LCFLG) S)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL TOPFLG) S)
(PUSHJ P EDITCOM)
TAG6 (JRST 0 TAG1)
TAG5 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG12)
(MOVE 2 (SPECIAL EDITOPS) S)
(HLRZ@ 1 -1 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG15)
(HRRZ@ 2 1)
(MOVE 1 -1 P)
(PUSHJ P EDITRAN)
(JRST 0 TAG14)
TAG15 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG14 (JRST 0 TAG1)
TAG12 (MOVE 1 (SPECIAL TOPFLG) S)
(JUMPN 1 TAG20)
(CALL 1 (E ERR) S)
(JRST 0 TAG4)
TAG20 (MOVE 2 (SPECIAL EDITCOMSL) S)
(MOVE 1 -1 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG22)
(MOVE 1 (SPECIAL READBUF) S)
(JUMPE 1 TAG24)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(CLEARM 0 (SPECIAL READBUF) S)
(MOVEM 1 -1 P)
(JRST 0 TAG23)
TAG24 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG23 (JRST 0 TAG4)
TAG22 (MOVEI 2 (QUOTE -1))
(MOVE 1 -1 P)
(CALL 2 (E NTHCHAR) S)
(CAIE 1 (QUOTE P) S)
(JRST 0 TAG27)
(MOVE 1 -1 P)
(CALL 1 (E EXPLODE) S)
(MOVEM 1 -1 P)
(CALL 1 (E LAST) S)
(MOVEI 2 (QUOTE /)) S)
(HRLM@ 2 1)
(MOVE 1 -1 P)
(CALL 1 (E READLIST) S)
(MOVEI 2 (QUOTE (↑ ← UP NX BK !NX UNDO)) S)
(MOVEM 1 -1 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG27)
(MOVE 2 (SPECIAL READBUF) S)
(MOVEI 1 (QUOTE P) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL READBUF) S)
(JRST 0 TAG4)
TAG27 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG4 (MOVE 2 (SPECIAL EDITOPS) S)
(HLRZ@ 1 -1 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG35)
(HRRZ@ 2 1)
(MOVE 1 -1 P)
(PUSHJ P EDITRAN)
(JRST 0 TAG34)
TAG35 (MOVE 1 -1 P)
(MOVEM 1 (SPECIAL COM) S)
(MOVE 2 (SPECIAL TOPFLG) S)
(PUSHJ P EDITCOM)
TAG34
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EDUP SUBR)
(HLRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HRRZ@ 1 (SPECIAL L) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG6)
(CALL 1 (E ERR) S)
(JRST 0 TAG5)
TAG6 (HLRZ@ 2 1)
(MOVE 1 -3 P)
(CALL 2 (E TAILP) S)
(JUMPN 1 TAG3)
(HLRZ@ 2 0 P)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG10)
(CALL 1 (E ERR) S)
(JRST 0 TAG5)
TAG10 (CAMN 1 (SPECIAL LASTAIL) S)
(JRST 0 TAG12)
(HRRZ@ 2 1)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG12)
(TDZA 1 1)
TAG12 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG5)
(HLRZ@ 1 (SPECIAL LASTAIL) S)
(CAME 1 -3 P)
(JRST 0 TAG15)
(MOVE 2 -2 P)
(MOVE 1 (SPECIAL LASTAIL) S)
(CALL 2 (E TAILP) S)
(JUMPE 1 TAG15)
(MOVE 1 (SPECIAL LASTAIL) S)
(MOVEM 1 -1 P)
(JRST 0 TAG5)
TAG15 (CALL 0 (E TERPRI) S)
(MOVE 1 -3 P)
(CALL 1 (E PRINC) S)
(MOVEI 1 (QUOTE -/ LOCATION/ UNCERTAIN) S)
(CALL 1 (E PRINC) S)
TAG5 (HLRZ@ 1 0 P)
(CAME 1 -1 P)
(JRST 0 TAG23)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL L) S)
(JRST 0 TAG22)
TAG23 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL L) S)
TAG22
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP EDIT* SUBR)
(MOVE 2 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 2 (SPECIAL L) S)
(PUSH P 2)
(MOVEM 1 0 P)
(PUSHJ P EDUP)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E LENGTH) S)
(PUSHJ P SPECSTR)
(MOVEI 2 (QUOTE NIL))
(MOVE 3 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 2 (SPECIAL COM) S)
(0 3 (SPECIAL L) S)
(PUSH P 1)
(MOVE 2 -1 P)
(CALL 2 (E *GREAT) S)
(JUMPN 1 TAG2)
(CALL 1 (E ERR) S)
TAG2 (MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE !0) S)
(PUSHJ P EDITCOM)
(POP P 2)
(POP P 1)
(CALL 2 (E *DIF) S)
(MOVEI 2 (QUOTE NIL))
(PUSHJ P EDITCOM)
(MOVE 1 (SPECIAL L) S)
(PUSHJ P SPECSTR)
(MOVEM 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(POPJ P)
NIL
(LAP SUBFUN1EDOR SUBR)
(MOVE 1 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(HLRZ@ 1 (SPECIAL COMS) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(HLRZ@ 1 (SPECIAL COMS) S)
(PUSHJ P EDITCOM)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 (SPECIAL COMS) S)
(PUSHJ P EDITCOMS)
TAG1 (MOVE 1 (SPECIAL L) S)
(PUSHJ P SPECSTR)
(MOVEM 1 (SPECIAL L) S)
(POPJ P)
NIL
(LAP EDOR SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL COMS) S)
TAG1 (MOVE 1 (SPECIAL COMS) S)
(JUMPN 1 TAG6)
(CALL 1 (E ERR) S)
(JRST 0 TAG5)
TAG6 (MOVEI 1 (QUOTE ((SUBFUN1EDOR))) S)
(CALL 17 (E ERRSET) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG10)
(HLRZ@ 1 (SPECIAL L) S)
(JRST 0 TAG2)
TAG10
TAG5 (HRRZ@ 1 (SPECIAL COMS) S)
(MOVEM 1 (SPECIAL COMS) S)
(JRST 0 TAG1)
TAG2 (JRST 0 SPECSTR)
NIL
(LAP SUBFUN1ERRCOM SUBR)
(MOVE 1 (SPECIAL COMS) S)
(JRST 0 EDITCOMS)
NIL
(LAP ERRCOM SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL COMS) S)
(MOVEI 1 (QUOTE ((SUBFUN1ERRCOM))) S)
(CALL 17 (E ERRSET) S)
(JRST 0 SPECSTR)
NIL
(LAP EDRPT SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (SPECIAL L) S)
(PUSH P (C 0 0 (QUOTE 0) 0))
TAG1 (MOVE 2 (SPECIAL MAXLOOP) S)
(MOVE 1 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG6)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE MAXLOOP/ EXCEEDED) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG5)
TAG6 (MOVE 1 -3 P)
(PUSHJ P ERRCOM)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG7)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG7 (MOVE 1 -2 P)
(JUMPN 1 TAG11)
(MOVE 1 0 P)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE OCCURRENCES) S)
(CALL 1 (E PRINC) S)
TAG11
TAG5 (MOVE 1 -1 P)
(MOVEM 1 (SPECIAL L) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP EDLOC SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL LCFLG) S)
(PUSH P 1)
(PUSH P (SPECIAL L) S)
(PUSH P (SPECIAL UNFIND) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL LCFLG) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -3 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 -3 P)
(PUSHJ P EDITCOM)
(JRST 0 TAG5)
TAG6 (HRRZ@ 1 -3 P)
(JUMPN 1 TAG7)
(HLRZ@ 1 -3 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG7)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 -3 P)
(PUSHJ P EDITCOM)
(JRST 0 TAG5)
TAG7 (JRST 0 TAG1)
TAG5 (MOVE 1 -2 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(HLRZ@ 1 (SPECIAL L) S)
(JRST 0 TAG2)
TAG1 (MOVE 1 (SPECIAL L) S)
(MOVEM 1 0 P)
(MOVE 1 -3 P)
(PUSHJ P ERRCOM)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG15)
(MOVE 1 -2 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(HLRZ@ 1 (SPECIAL L) S)
(JRST 0 TAG2)
TAG15 (MOVE 2 (SPECIAL L) S)
(MOVE 1 0 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG20)
(MOVE 1 -2 P)
(MOVEM 1 (SPECIAL L) S)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG20 (JRST 0 TAG1)
TAG2 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP EDLOCL SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL COMS) S)
(PUSH P (C 0 0 TAG1 0))
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE NIL))
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(0 2 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL COMS) S)
(PUSHJ P EDLOC)
(MOVE 1 (SPECIAL L) S)
(PUSHJ P SPECSTR)
(PUSH P 1)
(HRRZ@ 1 (SPECIAL L) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG1 (MOVEM 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 SPECSTR)
NIL
(LAP EDIT: SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL TOFLG) S)
(0 0 (SPECIAL L0) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L0) S)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG15)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE ##) S)
(JRST 0 TAG15)
(MOVE 1 (SPECIAL L) S)
(MOVEI 2 (QUOTE NIL))
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(0 2 (SPECIAL UNDOLST1) S)
(HRRZ@ 1 0 P)
(PUSHJ P EDITCOMS)
(CALL 1 (E COPY) S)
(PUSHJ P SPECSTR)
(JRST 0 TAG14)
TAG15 (MOVE 1 0 P)
TAG14 (CALL 1 (E NCONS) S)
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG24)
(MOVE 1 -3 P)
(HRRM@ 1 -2 P)
(HRRZ@ 2 -2 P)
(JRST 0 TAG23)
TAG24 (MOVE 2 -3 P)
(MOVEM 2 -1 P)
TAG23 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 2 -2 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(SUB P (C 3 0 3 0))
(MOVEM 1 -1 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG30)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE HERE) S)
(JRST 0 TAG32)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
TAG32 (MOVE 1 -2 P)
(PUSHJ P EDLOC)
TAG30 (PUSHJ P EDUP)
(MOVE 1 (SPECIAL L0) S)
(CAME 1 (SPECIAL L) S)
(JRST 0 TAG34)
(CLEARM 0 -2 P)
TAG34 (MOVEI 2 (QUOTE (B BEFORE)) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG36)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE -1))
(PUSHJ P EDIT2F)
(JRST 0 TAG35)
TAG36 (MOVEI 2 (QUOTE (A AFTER)) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG37)
(HLRZ@ 1 (SPECIAL L) S)
(HRRZ@ 1 1)
(JUMPE 1 TAG41)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE -2))
(PUSHJ P EDIT2F)
(JRST 0 TAG40)
TAG41 (MOVE 2 -1 P)
(MOVEI 1 (QUOTE N) S)
(CALL 2 (E CONS) S)
(MOVE 2 (SPECIAL COPYFLG) S)
(PUSHJ P EDITCOML)
TAG40 (JRST 0 TAG35)
TAG37 (MOVEI 2 (QUOTE (: FOR)) S)
(MOVE 1 -3 P)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG44)
(MOVE 1 -1 P)
(JUMPN 1 TAG50)
(HLRZ@ 1 (SPECIAL L) S)
(HRRZ@ 1 1)
(JUMPE 1 TAG46)
TAG50 (MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(PUSHJ P EDIT2F)
(JRST 0 TAG45)
TAG46 (HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG51)
(PUSHJ P EDUP)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE 1))
(PUSHJ P EDIT2F)
(JRST 0 TAG45)
TAG51 (MOVEI 1 (QUOTE (0 (NTH -2) (2))) S)
(PUSHJ P EDITCOMS)
TAG45 (MOVE 1 -2 P)
(JUMPN 1 TAG55)
(MOVE 1 (SPECIAL L) S)
(JRST 0 TAG54)
TAG55 (MOVEI 1 (QUOTE NIL))
TAG54 (JRST 0 TAG2)
TAG44 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG35 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITMBD SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL TOFLG) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPE 1 TAG5)
(PUSHJ P EDLOC)
TAG5 (PUSHJ P EDUP)
(MOVE 1 (SPECIAL TOFLG) S)
(JUMPE 1 TAG7)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 TAG6)
TAG7 (HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(CALL 1 (E NCONS) S)
TAG6 (MOVEM 1 0 P)
(HLRZ@ 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG15)
(HRRZ@ 1 -1 P)
(JUMPE 1 TAG13)
TAG15 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E *APPEND) S)
(JRST 0 TAG12)
TAG13 (HLRZ@ 3 -1 P)
(MOVEI 2 (QUOTE *) S)
(MOVE 1 0 P)
(CALL 3 (E LSUBST) S)
TAG12 (CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE 1))
(PUSHJ P EDIT2F)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E TAILP) S)
(JUMPE 1 TAG21)
(HRRZ@ 2 (SPECIAL L) S)
(JRST 0 TAG20)
TAG21 (MOVE 2 (SPECIAL L) S)
TAG20 (POP P 1)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL L) S)
(MOVE 1 -2 P)
(JUMPN 1 TAG25)
(MOVE 1 (SPECIAL L) S)
(JRST 0 TAG24)
TAG25 (MOVEI 1 (QUOTE NIL))
TAG24 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITXTR SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL TOFLG) S)
(PUSH P 1)
(PUSH P 2)
(JUMPE 1 TAG5)
(PUSHJ P EDLOC)
TAG5 (HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E TAILP) S)
(JUMPE 1 TAG7)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 TAG6)
TAG7 (HLRZ@ 1 (SPECIAL L) S)
TAG6 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE NIL))
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(0 2 (SPECIAL UNFIND) S)
(MOVE 1 0 P)
(PUSHJ P EDLOC)
(HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E TAILP) S)
(JUMPE 1 TAG13)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(JRST 0 TAG12)
TAG13 (HLRZ@ 1 (SPECIAL L) S)
TAG12 (PUSHJ P SPECSTR)
(MOVEM 1 0 P)
(PUSHJ P EDUP)
(MOVE 1 (SPECIAL TOFLG) S)
(JUMPE 1 TAG17)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 0 P)
(CALL 2 (E *APPEND) S)
(MOVE 2 1)
(JRST 0 TAG16)
TAG17 (MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
TAG16 (MOVEI 1 (QUOTE 1))
(PUSHJ P EDIT2F)
(MOVE 1 (SPECIAL TOFLG) S)
(JUMPN 1 TAG23)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG23)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 2 (E TAILP) S)
(JUMPE 1 TAG27)
(HRRZ@ 2 (SPECIAL L) S)
(JRST 0 TAG26)
TAG27 (MOVE 2 (SPECIAL L) S)
TAG26 (POP P 1)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL L) S)
(JUMPN 1 TAG22)
TAG23
TAG22 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITELT SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL L) S)
(PUSH P 1)
(PUSHJ P EDLOC)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 (SPECIAL L) S)
(MOVEM 1 0 P)
(HRRZ@ 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L) S)
(HRRZ@ 1 1)
(JUMPN 1 TAG1)
(HLRZ@ 1 0 P)
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP SUBFUN1EDITCONT SUBR)
(MOVE 1 (SPECIAL SN) S)
(JRST 0 EDLOCL)
NIL
(LAP EDITCONT SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL SN) S)
(MOVE 2 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 2 (SPECIAL L) S)
(PUSH P 1)
(CALL 1 (E EDITFPAT) S)
(MOVEM 1 0 P)
TAG1 (MOVEI 2 (QUOTE N) S)
(MOVE 1 0 P)
(CALL 2 (E EDIT4F) S)
(JUMPN 1 TAG7)
(CALL 1 (E ERR) S)
(JRST 0 TAG6)
TAG7 (MOVEI 1 (QUOTE ((SUBFUN1EDITCONT))) S)
(CALL 17 (E ERRSET) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG1)
TAG6
TAG2 (HRRZ@ 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L) S)
(JUMPN 1 TAG12)
(CALL 1 (E ERR) S)
(JRST 0 TAG11)
TAG12 (MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG16)
(HLRZ@ 1 (SPECIAL L) S)
(HLRZ@ 1 1)
(CAME 1 0 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG15)
TAG16 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG17)
(HLRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E EDIT4E) S)
(JRST 0 TAG15)
TAG17 (HLRZ@ 2 (SPECIAL L) S)
(MOVE 1 0 P)
(CALL 2 (E EDIT4E) S)
TAG15 (JUMPE 1 TAG14)
(MOVE 1 (SPECIAL L) S)
(JRST 0 TAG3)
TAG14
TAG11 (JRST 0 TAG2)
TAG3 (PUSHJ P SPECSTR)
(MOVEM 1 (SPECIAL L) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITSW SUBR)
(PUSH P 1)
(PUSH P 2)
(EXCH 2 1)
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P EDITNTH)
(MOVE 2 0 P)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL L) S)
(PUSHJ P EDITNTH)
(HLRZ@ 2 0 P)
(HRRZ@ 3 0 P)
(PUSH P 2)
(HLRZ@ 2 1)
(PUSH P 1)
(MOVE 1 -2 P)
(PUSHJ P EDITSMASH)
(HRRZ@ 3 0 P)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(PUSHJ P EDITSMASH)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP EDITMV SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL L0) S)
(0 0 (SPECIAL TOFLG) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL L0) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -4 P)
(JUMPE 1 TAG5)
(PUSHJ P EDLOC)
(JUMPN 1 TAG4)
TAG5
TAG4 (MOVE 1 -3 P)
(CAIE 1 (QUOTE HERE) S)
(JRST 0 TAG7)
(MOVE 1 -4 P)
(JUMPN 1 TAG11)
(MOVE 1 -2 P)
(PUSHJ P EDLOC)
(CLEARM 0 -2 P)
TAG11 (MOVEI 1 (QUOTE :) S)
(MOVEM 1 -3 P)
(JRST 0 TAG6)
TAG7 (HLRZ@ 1 -2 P)
(CAIE 1 (QUOTE HERE) S)
(JRST 0 TAG13)
(MOVE 1 -4 P)
(JUMPN 1 TAG15)
(HRRZ@ 1 -2 P)
(PUSHJ P EDLOC)
(CLEARM 0 -2 P)
(JRST 0 TAG14)
TAG15 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
TAG14
TAG13
TAG6 (PUSHJ P EDUP)
(MOVE 1 (SPECIAL L) S)
(HLRZ@ 2 (SPECIAL L) S)
(HLRZ@ 2 2)
(MOVE 3 (SPECIAL L0) S)
(MOVEM 3 (SPECIAL L) S)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG22)
(PUSHJ P EDLOC)
(JUMPN 1 TAG21)
TAG22
TAG21 (MOVE 1 (SPECIAL TOFLG) S)
(JUMPE 1 TAG24)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 -1 P)
(CALL 2 (E *APPEND) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG23)
TAG24 (MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
TAG23 (MOVEI 2 (QUOTE NIL))
(PUSHJ P EDITCOML)
(JSP 6 SPECBIND)
(0 0 (SPECIAL L) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL L) S)
(MOVEI 1 (QUOTE (1 DELETE)) S)
(PUSHJ P EDITCOMS)
(PUSHJ P SPECSTR)
(MOVE 1 -4 P)
(JUMPN 1 TAG33)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL L) S)
(JRST 0 TAG32)
TAG33 (MOVE 1 -2 P)
(JUMPN 1 TAG35)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL L0) S)
(JRST 0 TAG32)
TAG35 (MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 (SPECIAL L0) S)
TAG32 (SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP EDITTO SUBR)
(MOVE 4 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 4 (SPECIAL L) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 1 TAG2)
(PUSHJ P EDLOC)
(PUSHJ P EDUP)
TAG2 (MOVE 1 -2 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG4)
(MOVE 1 -1 P)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG4)
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG4)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVE 2 -2 P)
(CALL 2 (E *DIF) S)
(MOVE 2 1)
(JRST 0 TAG3)
TAG4 (MOVE 2 -1 P)
TAG3 (HLRZ@ 3 (SPECIAL L) S)
(MOVEI 1 (QUOTE 1))
(CALL 3 (E BI) S)
(MOVE 1 0 P)
(CAIE 1 (QUOTE TO) S)
(JRST 0 TAG12)
(HLRZ@ 1 (SPECIAL L) S)
(CALL 1 (E CDAR) S)
(JUMPE 1 TAG12)
(HLRZ@ 3 (SPECIAL L) S)
(MOVEI 2 (QUOTE -2))
(MOVEI 1 (QUOTE 1))
(CALL 3 (E RI) S)
TAG12 (MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE 1))
(PUSHJ P EDITCOM)
(MOVE 1 (SPECIAL L) S)
(PUSHJ P SPECSTR)
(MOVEM 1 (SPECIAL L) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL TOFLG) S)
(SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP EDITBELOW SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(CALL 1 (E *EVAL) S)
(MOVEM 1 0 P)
(CALL 1 (E MINUSP) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG2 (MOVE 1 (SPECIAL L) S)
(MOVEI 2 (QUOTE ←) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(0 2 (SPECIAL LCFLG) S)
(MOVEI 2 (QUOTE NIL))
(MOVE 1 -1 P)
(PUSHJ P EDITCOM)
(MOVE 1 (SPECIAL L) S)
(PUSHJ P SPECSTR)
(CALL 1 (E LENGTH) S)
(PUSH P 1)
(MOVE 1 (SPECIAL L) S)
(CALL 1 (E LENGTH) S)
(PUSH P 1)
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E *PLUS) S)
(MOVE 2 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
TAG7 (MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVE 1 0 P)
(PUSH P (SPECIAL L) S)
(CALL 1 (E ADD1) S)
(MOVE 2 -2 P)
(CALL 2 (E *DIF) S)
(MOVE 2 -3 P)
(CALL 2 (E *DIF) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E NTH) S)
(MOVEM 1 (SPECIAL L) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP EDITRAN SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 (SPECIAL L) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL L) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 2 TAG11)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E ERR) S)
(JRST 0 TAG10)
TAG11 (HLRZ@ 1 2)
(MOVEM 1 0 P)
(JUMPE 1 TAG2)
TAG10
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG15)
(CALL 1 (E ERR) S)
(JRST 0 TAG14)
TAG15 (MOVE 2 -3 P)
(HLRZ@ 1 1)
(CALL 2 (E MEMQ#) S)
(MOVEM 1 -1 P)
(JUMPN 1 TAG17)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG17
TAG14
TAG2 (PUSH P (C 0 0 TAG21 0))
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(HLRZ@ 2 1)
(PUSH P 2)
(JSP 6 SPECBIND)
(0 0 (SPECIAL #1) S)
(0 0 (SPECIAL #2) S)
(0 0 (SPECIAL #3) S)
(MOVEM 1 -4 P)
(MOVE 2 -3 P)
(MOVE 1 -5 P)
(CALL 2 (E LDIFF) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL #1) S)
(HLRZ@ 1 -2 P)
(MOVEM 1 (SPECIAL #2) S)
(HRRZ@ 1 -3 P)
(MOVEM 1 (SPECIAL #3) S)
(HRRZ@ 1 -4 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (MOVE 1 -3 P)
(JUMPE 1 TAG31)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG35)
(MOVE 1 0 P)
(CAIE 1 (QUOTE #1) S)
(JRST 0 TAG37)
(MOVE 1 (SPECIAL #1) S)
(JRST 0 TAG36)
TAG37 (CAIE 1 (QUOTE #2) S)
(JRST 0 TAG40)
(MOVE 1 (SPECIAL #2) S)
(JRST 0 TAG36)
TAG40 (CAIE 1 (QUOTE #3) S)
(JRST 0 TAG41)
(MOVE 1 (SPECIAL #3) S)
(JRST 0 TAG36)
TAG41 (MOVE 1 0 P)
TAG36 (JRST 0 TAG34)
TAG35 (MOVE 1 0 P)
(CALL 1 (E *EVAL) S)
TAG34 (CALL 1 (E NCONS) S)
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG47)
(MOVE 1 -3 P)
(HRRM@ 1 -2 P)
(HRRZ@ 2 -2 P)
(JRST 0 TAG46)
TAG47 (MOVE 2 -3 P)
(MOVEM 2 -1 P)
TAG46 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 2 -2 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG3)
TAG31 (MOVE 1 0 P)
(PUSHJ P SPECSTR)
(SUB P (C 4 0 4 0))
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E APPLY) S)
TAG21 (MOVEM 1 0 P)
(JUMPN 1 TAG53)
(MOVE 1 (SPECIAL L) S)
(MOVEM 1 (SPECIAL UNFIND) S)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG52)
TAG53 (MOVE 1 0 P)
TAG52 (PUSHJ P SPECSTR)
(SUB P (C 2 0 2 0))
(JUMPN 1 TAG4)
(MOVE 1 (SPECIAL L) S)
TAG4 (MOVEM 1 (SPECIAL L) S)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(DEFPROP EDITMACROS (NIL (MAKEFN (EX ARGS N M) (IF (QUOTE M) ((BI N M) (LC . N) (BELOW \)) ((IF (QUOTE N) ((BI N→
) (LC . N) (BELOW \))))) (E (MAPC (QUOTE (LAMBDA (X Y) (EDITDSUBST X Y (##)))) (QUOTE ARGS) (CDR (QUOTE EX))) T)→
(E (PUTPROP (CAR (QUOTE EX)) (CONS (QUOTE LAMBDA) (CONS (QUOTE ARGS) (##))) (QUOTE EXPR)) T) UP (1 EX)) (REPACK→
X (LC . X) REPACK) (REPACK NIL (IF (CONSP (##)) (1) NIL) (I : (PRINT (READLIST (EDITE (EXPLODE (##)) NIL NIL)))→
)) (NEX (X) (BELOW X) NX) (NEX NIL (BELOW ←) NX) (THIRD X (ORR ((LC . X) (LC . X) (LC . X)))) (SECOND X (ORR ((L→
C . X) (LC . X))))) VALUE)
(DEFPROP USERMACROS (NIL) VALUE)
(DEFPROP EDITOPS (NIL (INSERT (BEFORE AFTER FOR) (EDIT: #2 #3 #1)) (REPLACE (WITH BY) (EDIT: : #1 #3)) (CHANGE (→
TO) (EDIT: : #1 #3)) (DELETE NIL (EDIT: : #1 NIL)) (EMBED (IN WITH) (EDITMBD #1 #3)) (SURROUND (WITH IN) (EDITMB→
D #1 #3)) (MOVE (TO) (EDITMV #1 (CAR #3) (CDR #3))) (EXTRACT (FROM) (EDITXTR #3 #1))) VALUE)
(DEFPROP EDITRACEFN (NIL) VALUE)
(DEFPROP LASTWORD (NIL) VALUE)
(DEFPROP MAXLEVEL (NIL . 300) VALUE)
(DEFPROP UPFINDFLG (NIL . T) VALUE)
(DEFPROP MAXLOOP (NIL . 30) VALUE)
(DEFPROP EDITCOMSL (NIL S R E I N P F FS F= ORF BF NTH IF RI RO LI LO BI BO M NX BK ORR MBD XTR THRU TO A B : AF→
TER BEFORE FOR MV LP LPQ LC LCL ← BELOW SW BIND COMS COMSQ INSERT REPLACE CHANGE DELETE EMBED SURROUND MOVE EXTR→
ACT SECOND THIRD NEX REPACK MAKEFN) VALUE)